/[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.19 by dams, Mon Apr 21 19:10:18 2003 UTC revision 1.20 by dams, Thu May 1 17:50:17 2003 UTC
# Line 329  sub parse { Line 329  sub parse {
329      $out->{atoms} = [@out_atoms];      $out->{atoms} = [@out_atoms];
330  }  }
331    
332    sub debug {
333        $ENV{DEBUG} or return;
334        print "\033[35m";
335        my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller(2);
336        print $subroutine . "::$line : ", @_;
337        print "\033[0m\n";
338    }
339    
340  # sub validate {  # sub validate {
341  #     my ($out, $atom) = @_;  #     my ($out, $atom) = @_;
342  #     $out->{validation_name} and eval($validation{$out->{validation_name}}->{rules});  #     $out->{validation_name} and eval($validation{$out->{validation_name}}->{rules});

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

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