Garbage collection.

p4raw-id: //depot/perl@14204

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index cf32e4b..3ee2831 100644 (file)
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -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";
 }