From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 7 Jan 2004 09:25:16 +0000 (+0000)
Subject: Hardcoded numerical flag masks. Bad.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a77e643ad0ddc577b22643ae4113c389b2dab048;p=p5sagit%2Fp5-mst-13.2.git

Hardcoded numerical flag masks. Bad.

p4raw-id: //depot/perl@22084
---

diff --git a/doop.c b/doop.c
index 9ca4057..dc64c45 100644
--- a/doop.c
+++ b/doop.c
@@ -615,7 +615,9 @@ Perl_do_trans(pTHX_ SV *sv)
 
     DEBUG_t( Perl_deb(aTHX_ "2.TBL\n"));
 
-    switch (PL_op->op_private & ~hasutf & 63) {
+    switch (PL_op->op_private & ~hasutf & (
+		OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|
+		OPpTRANS_SQUASH|OPpTRANS_DELETE|OPpTRANS_COMPLEMENT)) {
     case 0:
 	if (hasutf)
 	    return do_trans_simple_utf8(sv);