diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-07 08:41:58 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-07 08:41:58 +0000 |
commit | 2975d2266cd5007c9c9ffad3ff137d0cd9a1bceb (patch) | |
tree | f000c6983f9e66993aafbbe0da211a5b33df46b0 /t | |
parent | e09e7b96e347697a61fed055fb045dc3c0309c12 (diff) | |
parent | ead56f575ba85493a3f4d8d929bb3146a76daa02 (diff) | |
download | perl-2975d2266cd5007c9c9ffad3ff137d0cd9a1bceb.tar.gz |
Raw integrate of mainline for S_grok_number debug
(sv.c has MULTIPLICITY issues as well as whatever else ...)
p4raw-id: //depot/perlio@10465
Diffstat (limited to 't')
-rwxr-xr-x | t/op/misc.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 881f99dc18..679dd91d0d 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -599,6 +599,16 @@ EOT EXPECT ok ######## +# test that closures generated by eval"" hold on to the CV of the eval"" +# for their entire lifetime +$code = eval q[ + sub { eval '$x = "ok 1\n"'; } +]; +&{$code}(); +print $x; +EXPECT +ok 1 +######## # This test is here instead of pragma/locale.t because # the bug depends on in the internal state of the locale # settings and pragma/locale messes up that state pretty badly. |