op/sub.t - state variable not working

[toddr]

Should print ok...

sub predeclared {
    CORE::state $x = 42;
    sub inside_predeclared {
	eval '$x' eq 42 and print "ok\n";
    }
}
predeclared(); # set $x to 42
$main::x = $main::x = "You should not see this.";
inside_predeclared(); # run test