Parent Directory | Revision Log | Patch
revision 1.20 by dams, Thu May 1 17:50:17 2003 UTC | revision 1.21 by dams, Thu May 1 21:36:29 2003 UTC | |
---|---|---|
# | Line 331 sub parse { | Line 331 sub parse { |
331 | ||
332 | sub debug { | sub debug { |
333 | $ENV{DEBUG} or return; | $ENV{DEBUG} or return; |
334 | print "\033[35m"; | my $i = 0; |
335 | while (caller($i)) { $i++ } | |
336 | my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller(2); | my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller(2); |
337 | print $subroutine . "::$line : ", @_; | print ' ' x ($i-3); |
338 | print "\033[35m"; | |
339 | print $subroutine . "\t\033[36m", @_; | |
340 | print "\033[0m\n"; | print "\033[0m\n"; |
341 | } | } |
342 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |