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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by tv, Thu Nov 27 09:36:17 2003 UTC revision 1.3 by tv, Thu Nov 27 09:37:42 2003 UTC
# Line 89  sub FIRSTKEY { Line 89  sub FIRSTKEY {
89      my ($obj) = @_;      my ($obj) = @_;
90      debug;      debug;
91      my $atom = $obj->{libconf}->getAtom(0);      my $atom = $obj->{libconf}->getAtom(0);
92      if (defined $atom->{type} && $atom->{type} != '') {      if (defined $atom->{type} && $atom->{type} ne '') {
93          $atom->{type} eq 'SECTION' or die "atom n° 0 is not a section\n";          $atom->{type} eq 'SECTION' or die "atom n° 0 is not a section\n";
94      }      }
95      $atom->{section_name};      $atom->{section_name};

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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