diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-18 06:34:01 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-18 06:34:33 -0700 |
| commit | d4fc4415aac96132fac5b1e43e73bcba33a41b79 (patch) | |
| tree | c87f1b9ea1ffc5720b8bd0a1132a5764f64a17ff /regen | |
| parent | 87c7b53d0d7cc2f04915964e3d082adce6dac613 (diff) | |
| download | perl-d4fc4415aac96132fac5b1e43e73bcba33a41b79.tar.gz | |
Make push/shift $scalar accept only unblessed aryrefs
See ticket #80626.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/opcodes | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/regen/opcodes b/regen/opcodes index 5f8b88b93d..20087d1ef3 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -245,11 +245,11 @@ lslice list slice ck_null 2 H L L anonlist anonymous list ([]) ck_fun ms@ L anonhash anonymous hash ({}) ck_fun ms@ L -splice splice ck_push m@ A S? S? L -push push ck_push imsT@ A L +splice splice ck_fun m@ A S? S? L +push push ck_fun imsT@ A L pop pop ck_shift s% A? shift shift ck_shift s% A? -unshift unshift ck_push imsT@ A L +unshift unshift ck_fun imsT@ A L sort sort ck_sort dm@ C? L reverse reverse ck_fun mt@ L |