This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: f5f1948) | patch
RT #4682: given() didn't scope $_ correctly
authorDavid Mitchell <davem@iabyn.com>
Tue, 6 Sep 2011 11:16:23 +0000 (12:16 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 6 Sep 2011 11:21:21 +0000 (12:21 +0100)
commit87e4a53a894984d98bc11df391f89db73212de5e
tree9e5b6b48af12325ae3c37f035c35f24438d8c2a0tree | snapshot
parentf5f19483eb9a5629cd2db0902731ca0b471e0adccommit | diff
RT #4682: given() didn't scope $_ correctly

given(expr) {...} behaves similarly to { my $_ = expr; ...},
except that, prior to this commit, it wasn't doing the SAVECLEARSV()
that pp_padsv would do.  This meant that $_ was still marked as stale
while in scope, and wasn't getting cleared at the end of scope.
pp_ctl.c diff | blob | blame | history
t/op/switch.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.