From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Tue, 22 Jan 2002 17:00:54 +0000 (-0800)
Subject: [ID 20020122.012] Not OK: perl v5.7.2 +DEVEL14368 on cygwin-multi-64int 1.3.6(0.4732... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb6e44598f53708c554511c3233ec414fa732664;p=p5sagit%2Fp5-mst-13.2.git

[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
---

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