Merge the implementation of B::PV::{PVX,PV} using ALIAS.

On this platform, this reduces the object size by .5K.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 74d15fb..27e6d30 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1600,10 +1600,6 @@ REGEX(sv)
 
 MODULE = B     PACKAGE = B::PV         PREFIX = Sv
 
-char*
-SvPVX(sv)
-       B::PV   sv
-
 B::SV
 SvRV(sv)
         B::PV   sv
@@ -1620,12 +1616,17 @@ SvRV(sv)
 void
 SvPV(sv)
        B::PV   sv
+    ALIAS:
+       PVX = 1
     PREINIT:
        const char *p;
        STRLEN len = 0;
        U32 utf8 = 0;
     CODE:
-        if( SvPOK(sv) ) {
+       if (ix) {
+           p = SvPVX(sv);
+           len = strlen(p);
+       } else if (SvPOK(sv)) {
            len = SvCUR(sv);
            p = SvPVX_const(sv);
            utf8 = SvUTF8(sv);