/[papo]/papo/neb/neb/Exception.pm
ViewVC logotype

Diff of /papo/neb/neb/Exception.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by jlenton, Thu Apr 17 18:51:15 2003 UTC revision 1.2 by jlenton, Thu Apr 17 21:16:48 2003 UTC
# Line 29  sub throw Line 29  sub throw
29      my @context = @_;      my @context = @_;
30      my $n = 0;      my $n = 0;
31    
32    
33      print STDERR "$msg:\n";      print STDERR "$msg:\n";
34      printf( STDERR "%s:%s:%s: %n%s\n",      printf( STDERR "%s:%s:%s: %n%s\n",
35              $file, $line, $col, $n, shift @context );              $file, $line - 1, $col, $n, shift @context );
36      $n = ' 'x$n;      $n = ' 'x$n;
37    
38      print STDERR "$n$_\n"      print STDERR "$n$_\n"
39          foreach (@context);          foreach (@context);
40        print STDERR "Note: the line show might not be correct (e.g. if the error was on the\n",
41                     "      last char of the previous line)\n";
42    
43      exit 1;      exit 1;
44  }  }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26