diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-19 09:24:18 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-19 09:24:18 +0000 |
| commit | 03bfcac8f4be6db5e31d8e504887b86016c2bc4e (patch) | |
| tree | 237b61078bd9579c107d1f20a5fa25e9ca1fbeef /ext/B/t/xref.t | |
| parent | 5463e635e29aad1605d20ed3ea9f8b3e487e0102 (diff) | |
| parent | 64c66fb6d001b6ad9c6dcec93084b647d4c6eb13 (diff) | |
| download | perl-03bfcac8f4be6db5e31d8e504887b86016c2bc4e.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@15315
Diffstat (limited to 'ext/B/t/xref.t')
| -rw-r--r-- | ext/B/t/xref.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ext/B/t/xref.t b/ext/B/t/xref.t index 8268e3f898..8b143556e3 100644 --- a/ext/B/t/xref.t +++ b/ext/B/t/xref.t @@ -93,6 +93,11 @@ is( '1001', 'glob FOO used in subroutine foo' ); +END { + close XREF; + 1 while unlink $file; +} + # End of tests. # Now some stuff to feed B::Xref @@ -100,3 +105,4 @@ is( package Testing::Xref; sub foo { print FOO %::xreftable; } sub bar { print FOO foo; } + |