Parent Directory | Revision Log | 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 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |