[ID 20020122.012] Not OK: perl v5.7.2 +DEVEL14368 on cygwin-multi-64int 1.3.6(0.4732...

Message-Id: <GtgT8gzkg+CG092yn@efn.org>

p4raw-id: //depot/perl@14383

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index d59d0da..41aa1ec 100644 (file)
--- 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