Change 15294 by jhi@alpha on 2002/03/18 14:19:29

        Be tidy.

Affected files ...

.... //depot/perl/ext/B/t/xref.t#2 edit

Differences ...

==== //depot/perl/ext/B/t/xref.t#2 (text) ====
Index: perl/ext/B/t/xref.t
--- perl/ext/B/t/xref.t.~1~     Mon Mar 18 07:30:05 2002
+++ perl/ext/B/t/xref.t Mon Mar 18 07:30:05 2002
@@ -93,6 +93,10 @@
     '1001', 'glob FOO used in subroutine foo'
 );
 
+END {
+    1 while unlink $file;
+}
+
 # End of tests.
 # Now some stuff to feed B::Xref
 
@@ -100,3 +104,4 @@
 package Testing::Xref;
 sub foo { print FOO %::xreftable; }
 sub bar { print FOO foo; }
+
End of Patch.

Reply via email to