diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-10-18 14:36:40 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-22 17:04:26 +0000 |
| commit | f3548bdc4d2efd11e139d110e60764b9dae81319 (patch) | |
| tree | 422946e9b45718c9b89294215cd0ce41c7e258ea /t | |
| parent | e0fa987931295419ee9237d08014c4c5381f1cf8 (diff) | |
| download | perl-f3548bdc4d2efd11e139d110e60764b9dae81319.tar.gz | |
PL_curpad == AvARRAY(PL_comppad) always
Message-ID: <20021018133640.A19172@fdgroup.com>
p4raw-id: //depot/perl@18048
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/closure.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/closure.t b/t/op/closure.t index 99c3216397..d93292b925 100755 --- a/t/op/closure.t +++ b/t/op/closure.t @@ -13,7 +13,7 @@ BEGIN { use Config; -print "1..172\n"; +print "1..173\n"; my $test = 1; sub test (&) { @@ -514,3 +514,16 @@ END BEGIN { $vanishing_pad = sub { eval $_[0] } } $some_var = 123; test { $vanishing_pad->( '$some_var' ) == 123 }; + +# this coredumped on <= 5.8.0 because evaling the closure caused +# an SvFAKE to be added to the outer anon's pad, which was then grown. +my $outer; +sub { + my $x; + $x = eval 'sub { $outer }'; + $x->(); + $a = [ 99 ]; + $x->(); +}->(); +test {1}; + |