This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Garbage collection.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Jan 2002 01:43:48 +0000 (01:43 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Jan 2002 01:43:48 +0000 (01:43 +0000)
p4raw-id: //depot/perl@14204

t/run/kill_perl.t

index cf32e4b..3ee2831 100644 (file)
@@ -796,6 +796,7 @@ package main;
 $test = Foo->new(); # must be package var
 END
 {
+       1 while unlink 'dbmtest';
        1 while unlink <dbmtest.*>;
        print "ok\n";
 }