/[libconf]/libconf/perl-Libconf/Libconf.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/Libconf.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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