[Bast-commits] r4934 - Devel-BeginLift/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-18 13:22:44 +0100 (Sat, 18 Oct 2008)
New Revision: 4934

Modified:
   Devel-BeginLift/1.000/trunk/BeginLift.xs
Log:
Don't return a const op for a null sv.

Modified: Devel-BeginLift/1.000/trunk/BeginLift.xs
===================================================================
--- Devel-BeginLift/1.000/trunk/BeginLift.xs	2008-10-18 11:49:59 UTC (rev 4933)
+++ Devel-BeginLift/1.000/trunk/BeginLift.xs	2008-10-18 12:22:44 UTC (rev 4934)
@@ -137,6 +137,11 @@
     if (type == OP_RV2GV)
       return newGVOP(OP_GV, 0, (GV*)sv);
 
+	if (SvTYPE(sv) == SVt_NULL) {
+		op_free(o);
+		return newOP(OP_NULL, 0);
+	}
+
     return newSVOP(OP_CONST, 0, sv);
   } else {
     /* this bit not lifted, handles the 'sub doesn't return stuff' case