diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-06 11:45:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-06 11:45:08 +0000 |
| commit | c975facca21cbb3c09f2683defbaf68948a91e9a (patch) | |
| tree | 790f6a0caf0741d0440656373baf9136010337ba /t/op/misc.t | |
| parent | 376b1d05dbf171472c0619bf63fc51913b729360 (diff) | |
| download | perl-c975facca21cbb3c09f2683defbaf68948a91e9a.tar.gz | |
Integrate changes #10450 and #10451 from maintperl:
optimize change#10448 slightly (don't repeat search in eval""s lexical
scope, since that has already been searched)
change#9108 needs subtler treatment for case of closures created
within eval""
p4raw-link: @10450 on //depot/maint-5.6/perl: 77991f234c231cb11047bb180fdeef1134557583
p4raw-link: @10448 on //depot/maint-5.6/perl: 332ba4f98bc63c81fd7ba0d06432a7f903d716cf
p4raw-link: @9108 on //depot/maint-5.6/perl: 1cf1f64f42eb50a67f2427ff9d6d24023a2b9997
p4raw-id: //depot/perl@10454
p4raw-integrated: from //depot/maint-5.6/perl@10453 'merge in'
t/op/misc.t (@10448..) op.c (@10450..)
Diffstat (limited to 't/op/misc.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. |