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: 8a5decd) | patch
Fix perl #57706 for magical vars: -"-10"
authorFather Chrysostomos <sprout@cpan.org>
Wed, 6 Jun 2012 19:49:05 +0000 (12:49 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 7 Jun 2012 15:18:54 +0000 (08:18 -0700)
commite38171cf57fef8a0f4063d9e539998f145135ade
tree3026bdbf4a6bc143688093ece7ce151b2e6e2a88tree | snapshot
parent8a5decd86e575fa785c97ea9b6642e4e87294101commit | diff
Fix perl #57706 for magical vars: -"-10"

Commit a5b92898 caused -"-10" to return 10, not "+10".  But it wasn’t
working for magical variables.

SvIV_please_nomg was fixed recently for magical variables, but not
SvIV_please, so change pp_negate to use that.

(Ironically, SvIV_please has never called magic, so the
SvIV_please_nomg variant never needed to exist.  So the two could
be merged.)
pp.c diff | blob | blame | history
t/op/negate.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.