Parent Directory | Revision Log | 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}; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |