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 (file)
--- 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; }
+