diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-08-07 16:53:35 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-07 19:59:18 +0000 |
| commit | 2740392c45d51e34cd904b51afcc00544a78cf82 (patch) | |
| tree | 3973742d21b9566374f272b2023bb7706f3db140 /t/lib/warnings | |
| parent | f695f0e6874001cf0696a1b1ec3411efe80ba2a9 (diff) | |
| download | perl-2740392c45d51e34cd904b51afcc00544a78cf82.tar.gz | |
Fwd: Re: [PATCH] flags set incorrectly on abandoned lexicals
Message-ID: <20030807145335.GF26683@fdgroup.com>
p4raw-id: //depot/perl@20559
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/pad | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/warnings/pad b/t/lib/warnings/pad index 65f92c3c70..441fba29bd 100644 --- a/t/lib/warnings/pad +++ b/t/lib/warnings/pad @@ -149,6 +149,16 @@ f()->(); EXPECT Variable "$x" is not available at (eval 1) line 2. ######## +use warnings 'closure' ; +{ + my $x = 1; + $y = \$x; # force abandonment rather than clear-in-place at scope exit + sub f2 { eval '$x' } +} +f2(); +EXPECT +Variable "$x" is not available at (eval 1) line 2. +######## # pad.c no warnings 'closure' ; sub x { |