diff options
| -rw-r--r-- | t/run/fresh_perl.t | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index d59d0da7b8..41aa1eca58 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -779,16 +779,12 @@ sub new { } sub DESTROY { my $self = shift; - dbmclose(%{$self->{'LT'}}); - return 1; -} -package main; -$test = Foo->new(); # must be package var -END -{ + dbmclose(%{$self->{'LT'}}); 1 while unlink 'dbmtest'; 1 while unlink <dbmtest.*>; print "ok\n"; } +package main; +$test = Foo->new(); # must be package var EXPECT ok |