Revert "replace B::COP::stashflags by B::COP::stashlen"
authorFather Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 13:31:26 +0000 (06:31 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 13:31:26 +0000 (06:31 -0700)
This reverts commit bbf5974c677f8f57671e2b54c2e756597ead21f9.

ext/B/B.pm
ext/B/B.xs

index 75ead53..b19693c 100644 (file)
@@ -15,7 +15,7 @@ require Exporter;
 # walkoptree comes from B.xs
 
 BEGIN {
-    $B::VERSION = '1.35';
+    $B::VERSION = '1.34';
     @B::EXPORT_OK = ();
 
     # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
@@ -1211,7 +1211,7 @@ Only when perl was compiled with ithreads.
 
 =item stashpv
 
-=item stashlen
+=item stashflags
 
 =item file
 
index 632c874..4a5ab44 100644 (file)
@@ -1227,8 +1227,8 @@ pv(o)
            ST(0) = newSVpvn_flags(o->op_pv, strlen(o->op_pv), SVs_TEMP);
 
 #define COP_label(o)   CopLABEL(o)
-#ifdef CopSTASH_len
-#define COP_stashlen(o)        CopSTASH_len(o)
+#ifdef CopSTASH_flags
+#define COP_stashflags(o)      CopSTASH_flags(o)
 #endif
 
 MODULE = B     PACKAGE = B::COP                PREFIX = COP_
@@ -1253,10 +1253,10 @@ COP_stash(o)
        PUSHs(make_sv_object(aTHX_
                             ix ? (SV *)CopFILEGV(o) : (SV *)CopSTASH(o)));
 
-#ifdef CopSTASH_len
+#ifdef CopSTASH_flags
 
 U32
-COP_stashlen(o)
+COP_stashflags(o)
        B::COP  o
 
 #endif