Fix test for overload in given() with smart match after last change

[p5sagit/p5-mst-13.2.git] / t / op / goto.t

diff --git a/t/op/goto.t b/t/op/goto.t
index 9f98490..c79b424 100755 (executable)
--- 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;
@@ -449,8 +449,7 @@ like($@, qr/Can't goto subroutine from an eval-block/, 'eval block');
 }
 
 TODO: {
-    local $TODO = "[perl #43403] goto() from an if to an else doesn't undo local
-() changes";
+    local $TODO = "[perl #43403] goto() from an if to an else doesn't undo local () changes";
     our $global = "unmodified";
     if ($global) { # true but not constant-folded
          local $global = "modified";