diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-08-07 10:12:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-08-07 10:12:44 +0000 |
| commit | 1c25d394345c1b97c9cfd949fe3d2e3296fd9681 (patch) | |
| tree | eae05365e0036fad7135cb0b5681b1c1fe146571 /t/op/goto.t | |
| parent | 748a4b20dad489edbf351cfb9cf18f6da44f79f5 (diff) | |
| download | perl-1c25d394345c1b97c9cfd949fe3d2e3296fd9681.tar.gz | |
Use test.pl's tempfile().
p4raw-id: //depot/perl@34180
Diffstat (limited to 't/op/goto.t')
| -rwxr-xr-x | t/op/goto.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index 9254d7c7c2..c79b424b90 100755 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -205,7 +205,7 @@ is($ok, 1, 'goto in for(;;) with continuation'); # bug #22299 - goto in require doesn't find label -open my $f, ">goto01.pm" or die; +open my $f, ">Op_goto01.pm" or die; print $f <<'EOT'; package goto01; goto YYY; @@ -215,9 +215,9 @@ YYY: print "OK\n"; EOT close $f; -$r = runperl(prog => 'use goto01; print qq[DONE\n]'); +$r = runperl(prog => 'use Op_goto01; print qq[DONE\n]'); is($r, "OK\nDONE\n", "goto within use-d file"); -unlink "goto01.pm"; +unlink "Op_goto01.pm"; # test for [perl #24108] $ok = 1; |