diff options
| -rw-r--r-- | ext/XS/APItest/t/svpeek.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/XS/APItest/t/svpeek.t b/ext/XS/APItest/t/svpeek.t index 3afb039ff8..69d80d7583 100644 --- a/ext/XS/APItest/t/svpeek.t +++ b/ext/XS/APItest/t/svpeek.t @@ -58,11 +58,10 @@ like (DPeek ($1), qr'^PVMG\("', ' $1'); is (DPeek (sub {}), '\CV(__ANON__)', 'sub {}'); { our ($VAR, @VAR, %VAR); - open VAR, ">VAR.txt"; + open VAR, "<", $^X or die "Can't open $^X: $!"; sub VAR {} format VAR = . - END { unlink "VAR.txt" }; is (DPeek ( $VAR), 'UNDEF', ' $VAR undef'); is (DPeek (\$VAR), '\UNDEF', '\$VAR undef'); |