diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:04:17 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:04:17 +0000 |
| commit | 69dcf70cb27ded45873eb396cabbcbd82a21a2c8 (patch) | |
| tree | d2d98cd7761d5c6d976ef213d2b12a20be2b527b /op.c | |
| parent | 85aff5773f2412a54180cc35f86370c56b65bf77 (diff) | |
| download | perl-69dcf70cb27ded45873eb396cabbcbd82a21a2c8.tar.gz | |
Some more Chip patches (tweaked to match _5x):
Subject: [PATCH] Fix empty BLOCK
Date: Wed, 4 Feb 1998 16:52:28 -0500 (EST)
Subject: [PATCH] fix (\@@) proto
Date: Thu, 5 Feb 1998 10:24:29 -0500 (EST)
Subject: [PATCH] Cope with lack of args in Fcntl::AUTOLOAD
Date: Thu, 5 Feb 1998 21:26:55 -0500 (EST)
Subject: [PATCH] Don't fold string comparison under C<use locale>
Date: Thu, 5 Feb 1998 21:46:25 -0500 (EST)
p4raw-id: //depot/perl@463
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -1645,6 +1645,12 @@ fold_constants(register OP *o) case OP_LCFIRST: case OP_UC: case OP_LC: + case OP_SLT: + case OP_SGT: + case OP_SLE: + case OP_SGE: + case OP_SCMP: + if (o->op_private & OPpLOCALE) goto nope; } @@ -4599,9 +4605,10 @@ ck_subr(OP *o) goto wrapref; { OP* kid = o2; - o2 = newUNOP(OP_RV2GV, 0, kid); - o2->op_sibling = kid->op_sibling; + OP* sib = kid->op_sibling; kid->op_sibling = 0; + o2 = newUNOP(OP_RV2GV, 0, kid); + o2->op_sibling = sib; prev->op_sibling = o; } goto wrapref; |