X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Size.xs;h=5fde288be49fe3da51333a42e39f20c2d33df462;hb=62691e7c51ea7e035556b246fef31e273d10f342;hp=bd1b20cde8cd228668fd9c21e03810fab89a7c60;hpb=98ecbbc6c212eef2620e62ec70db99bd81160683;p=p5sagit%2FDevel-Size.git

diff --git a/Size.xs b/Size.xs
index bd1b20c..5fde288 100755
--- a/Size.xs
+++ b/Size.xs
@@ -19,9 +19,8 @@ typedef enum {
     OPc_SVOP,	/* 7 */
     OPc_PADOP,	/* 8 */
     OPc_PVOP,	/* 9 */
-    OPc_CVOP,	/* 10 */
-    OPc_LOOP,	/* 11 */
-    OPc_COP	/* 12 */
+    OPc_LOOP,	/* 10 */
+    OPc_COP	/* 11 */
 } opclass;
 
 static opclass
@@ -41,6 +40,10 @@ cc_opclass(OP *o)
 	return OPc_PADOP;
 #endif
 
+    if (o->op_type = OP_TRANS) {
+      return OPc_BASEOP;
+    }
+
     switch (PL_opargs[o->op_type] & OA_CLASS_MASK) {
     case OA_BASEOP:
 	return OPc_BASEOP;
@@ -316,6 +319,7 @@ UV op_size(OP *baseop, HV *tracking_hash) {
       total_size += op_size(cLOOPx(baseop)->op_lastop, tracking_hash);
     }  
     */
+    break;
   case OPc_COP:
     {
       COP *basecop;