From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Mar 2002 14:19:29 +0000 (+0000)
Subject: Be tidy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=886f8b0ca725d71d88b6920df8b79e5be26ca874;p=p5sagit%2Fp5-mst-13.2.git

Be tidy.

p4raw-id: //depot/perl@15294
---

diff --git a/ext/B/t/xref.t b/ext/B/t/xref.t
index 8268e3f..10f868a 100644
--- a/ext/B/t/xref.t
+++ b/ext/B/t/xref.t
@@ -93,6 +93,10 @@ is(
     '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 @@ is(
 package Testing::Xref;
 sub foo { print FOO %::xreftable; }
 sub bar { print FOO foo; }
+