diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-01-22 09:00:54 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-23 03:57:58 +0000 |
| commit | eb6e44598f53708c554511c3233ec414fa732664 (patch) | |
| tree | abd10a64c2e4b72d26de38ada94af133ebd49669 | |
| parent | 63f7075ef9a6bb7aedf298cbb9e56dc51fde5d36 (diff) | |
| download | perl-eb6e44598f53708c554511c3233ec414fa732664.tar.gz | |
[ID 20020122.012] Not OK: perl v5.7.2 +DEVEL14368 on cygwin-multi-64int 1.3.6(0.4732) (UNINSTALLED)
Message-Id: <GtgT8gzkg+CG092yn@efn.org>
p4raw-id: //depot/perl@14383
| -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 |