Parent Directory | Revision Log | Patch
revision 1.9 by dams, Sun Nov 23 22:01:56 2003 UTC | revision 1.10 by dams, Mon Nov 24 01:05:35 2003 UTC | |
---|---|---|
# | Line 174 sub CLEAR { | Line 174 sub CLEAR { |
174 | my ($obj) = @_; | my ($obj) = @_; |
175 | debug; | debug; |
176 | $obj->{lastatom} -= $obj->{libconf}->clearSection($obj->{firstatom}, 1); | $obj->{lastatom} -= $obj->{libconf}->clearSection($obj->{firstatom}, 1); |
177 | $obj->{lastatom} == $obj->{firstatom} + 1 or die "removed atoms number is wrong"; | $obj->{lastatom} == $obj->{firstatom} or die "removed atoms number is wrong"; |
178 | } | } |
179 | ||
180 | sub DELETE { | sub DELETE { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |