use warnings;
use strict;
-plan tests => 57;
+plan tests => 58;
+our $TODO;
our $foo;
while ($?) {
);
like($r, qr/bar/, "goto &foo in warn");
}
+
+TODO: {
+ 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";
+ goto ELSE;
+ } else {
+ ELSE: is($global, "unmodified");
+ }
+}
+