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: 288163b) | patch
Make warn treat $@=3 and $@="3" the same
authorFather Chrysostomos <sprout@cpan.org>
Thu, 7 Jun 2012 06:19:47 +0000 (23:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 7 Jun 2012 15:18:55 +0000 (08:18 -0700)
commitb1d0a83378b21d719f9e1fd57b852ca875a7c228
tree05a5fbcb06aa56bd3f6618367888e04e95366825tree | snapshot
parent288163b0396d677d915ce0beb12619dc26646926commit | diff
Make warn treat $@=3 and $@="3" the same

If we get this:

$ ./perl -Ilib -e '$@ = "3"; warn'
3 ...caught at -e line 1.

then we shouldn’t get this:

$ ./perl -Ilib -e '$@ = 3; warn'
Warning: something's wrong at -e line 1.

as the two scalars hold the same value.
pp_sys.c diff | blob | blame | history
t/op/warn.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.