diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-15 19:27:54 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 04:12:05 +0000 |
| commit | a9f58cadb705f6c8610a5b7e21bcd43f3dec6756 (patch) | |
| tree | 38865930fc4669031384d65b254de6cf7e767a08 | |
| parent | 9a40db4d28396def5ff66694936971da4bd71c0f (diff) | |
| download | perl-a9f58cadb705f6c8610a5b7e21bcd43f3dec6756.tar.gz | |
fix bogus integerization of pop()'s return value
Message-Id: <199808160327.XAA05186@aatma.engin.umich.edu>
Subject: Re: Complex expression does integer arithmetic
p4raw-id: //depot/perl@1810
| -rw-r--r-- | opcode.h | 2 | ||||
| -rwxr-xr-x | opcode.pl | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -2320,7 +2320,7 @@ EXT U32 opargs[] = { 0x00002505, /* anonhash */ 0x02993501, /* splice */ 0x0002351d, /* push */ - 0x00003c14, /* pop */ + 0x00003c04, /* pop */ 0x00003c04, /* shift */ 0x0002351d, /* unshift */ 0x0002d501, /* sort */ @@ -432,7 +432,7 @@ anonhash anonymous hash ck_fun ms@ L splice splice ck_fun m@ A S? S? L push push ck_fun imst@ A L -pop pop ck_shift si% A +pop pop ck_shift s% A shift shift ck_shift s% A unshift unshift ck_fun imst@ A L sort sort ck_sort m@ C? L |