diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-09 23:53:42 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-10 17:47:21 -0800 |
| commit | a9dec3fe491e66dff58a95299a532ad9c6d08439 (patch) | |
| tree | dc75eccb6f3604e6eb17d73f728da3918dac11bb /regen/opcodes | |
| parent | 8ecc2ae2e9f2e6c27ecb5feb5c628ee59f6d8bba (diff) | |
| download | perl-a9dec3fe491e66dff58a95299a532ad9c6d08439.tar.gz | |
Don’t allow OPpTARGET_MY with integer negation
$ ./perl -Ilib -le 'use integer; my $a = "fake"; $a = -$a; print "[$a]"'
[--]
As of 1c2b3fd6f1, negation under ‘use integer’ can do string negation,
which modifies the return value before reading the argument. So, like
regular non-integer negation, it must forego this optimisation.
Diffstat (limited to 'regen/opcodes')
| -rw-r--r-- | regen/opcodes | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/opcodes b/regen/opcodes index 2a0430dc0e..d6063a4bf9 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -166,7 +166,7 @@ bit_xor bitwise xor (^) ck_bitop fst2 S S bit_or bitwise or (|) ck_bitop fst2 S S negate negation (-) ck_null Ifst1 S -i_negate integer negation (-) ck_null ifsT1 S +i_negate integer negation (-) ck_null ifst1 S not not ck_null ifs1 S complement 1's complement (~) ck_bitop fst1 S |