/[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.21 by dams, Thu May 1 21:36:29 2003 UTC revision 1.22 by dams, Fri May 2 13:50:15 2003 UTC
# Line 306  sub parse { Line 306  sub parse {
306          ### End Comment handling ###          ### End Comment handling ###
307          $keep_atom = 0;          $keep_atom = 0;
308          $matched = 0;          $matched = 0;
309            my $atom = $out_atoms[$item];
310          foreach (@{$templates{$template_name}{rules}}) {          foreach (@{$templates{$template_name}{rules}}) {
             my $atom = $out_atoms[$item];  
311              eval ( $_ );              eval ( $_ );
312              $@ and die qq(error while applying the rule '$_' to '$in' : $@);              $@ and die qq(error while applying the rule '$_' to '$in' : $@);
313  #            $next_item = $matched && !$keep_atom;  #            $next_item = $matched && !$keep_atom;
# Line 318  sub parse { Line 318  sub parse {
318              push @{$out_atoms[$item]->{invalid}}, $in;              push @{$out_atoms[$item]->{invalid}}, $in;
319              print "\nLibconf.pm warning: can't parse line n°" . $line_idx . " :\n$in\n";              print "\nLibconf.pm warning: can't parse line n°" . $line_idx . " :\n$in\n";
320          }          }
321          $keep_atom or $item++;  #       $keep_atom or $item++;
322            $matched && !$keep_atom and $item++;
323  #       if (!$keep_atom) {  #       if (!$keep_atom) {
324  #           $item++;  #           $item++;
325  #           $next_item = 0;  #           $next_item = 0;

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

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