Update Devel-PPPort to CPAN version 3.21

[perl5.git] / cpan / Devel-PPPort / parts / inc / pvs

diff --git a/cpan/Devel-PPPort/parts/inc/pvs b/cpan/Devel-PPPort/parts/inc/pvs
index 082b297..b1be87b 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/pvs
+++ b/cpan/Devel-PPPort/parts/inc/pvs
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 14 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:45 +0100 $
-##
-################################################################################
-##
-##  Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
+##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 ##
@@ -49,89 +43,89 @@ __UNDEFINED__  get_cvs(name, flags)                     get_cvn_flags(name "", s
 
 void
 newSVpvs()
-       PPCODE:
-               mXPUSHs(newSVpvs("newSVpvs"));
-               XSRETURN(1);
+        PPCODE:
+                mXPUSHs(newSVpvs("newSVpvs"));
+                XSRETURN(1);
 
 void
 newSVpvs_flags()
-       PPCODE:
-               XPUSHs(newSVpvs_flags("newSVpvs_flags", SVs_TEMP));
-               XSRETURN(1);
+        PPCODE:
+                XPUSHs(newSVpvs_flags("newSVpvs_flags", SVs_TEMP));
+                XSRETURN(1);
 
 int
 newSVpvs_share()
-       PREINIT:
-               SV *sv;
-               U32 hash;
-       CODE:
-               RETVAL = 0;
-               PERL_HASH(hash, "pvs", 3);
-               sv = newSVpvs_share("pvs");
-               RETVAL += strEQ(SvPV_nolen_const(sv), "pvs");
-               RETVAL += SvCUR(sv) == 3;
-               RETVAL += SvSHARED_HASH(sv) == hash;
-               SvREFCNT_dec(sv);
-       OUTPUT:
-               RETVAL
+        PREINIT:
+                SV *sv;
+                U32 hash;
+        CODE:
+                RETVAL = 0;
+                PERL_HASH(hash, "pvs", 3);
+                sv = newSVpvs_share("pvs");
+                RETVAL += strEQ(SvPV_nolen_const(sv), "pvs");
+                RETVAL += SvCUR(sv) == 3;
+                RETVAL += SvSHARED_HASH(sv) == hash;
+                SvREFCNT_dec(sv);
+        OUTPUT:
+                RETVAL
 
 void
 sv_catpvs(sv)
-       SV *sv
-       PPCODE:
-               sv_catpvs(sv, "sv_catpvs");
+        SV *sv
+        PPCODE:
+                sv_catpvs(sv, "sv_catpvs");
 
 void
 sv_setpvs(sv)
-       SV *sv
-       PPCODE:
-               sv_setpvs(sv, "sv_setpvs");
+        SV *sv
+        PPCODE:
+                sv_setpvs(sv, "sv_setpvs");
 
 void
 hv_fetchs(hv)
-       SV *hv
-       PREINIT:
-               SV **s;
-       PPCODE:
-               s = hv_fetchs((HV *) SvRV(hv), "hv_fetchs", 0);
-               XPUSHs(sv_mortalcopy(*s));
-               XSRETURN(1);
+        SV *hv
+        PREINIT:
+                SV **s;
+        PPCODE:
+                s = hv_fetchs((HV *) SvRV(hv), "hv_fetchs", 0);
+                XPUSHs(sv_mortalcopy(*s));
+                XSRETURN(1);
 
 void
 hv_stores(hv, sv)
-       SV *hv
-       SV *sv
-       PPCODE:
-               (void) hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
+        SV *hv
+        SV *sv
+        PPCODE:
+                (void) hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
 
 SV*
 gv_fetchpvs()
-       CODE:
-               RETVAL = newRV_inc((SV*)gv_fetchpvs("Devel::PPPort::VERSION", 0, SVt_PV));
-       OUTPUT:
-               RETVAL
+        CODE:
+                RETVAL = newRV_inc((SV*)gv_fetchpvs("Devel::PPPort::VERSION", 0, SVt_PV));
+        OUTPUT:
+                RETVAL
 
 SV*
 gv_stashpvs()
-       CODE:
-               RETVAL = newRV_inc((SV*)gv_stashpvs("Devel::PPPort", 0));
-       OUTPUT:
-               RETVAL
+        CODE:
+                RETVAL = newRV_inc((SV*)gv_stashpvs("Devel::PPPort", 0));
+        OUTPUT:
+                RETVAL
 
 int
 get_cvs()
-       PREINIT:
-               CV* xv;
-       CODE:
-               RETVAL = 0;
-               xv = get_cvs("Devel::PPPort::foobar", 0);
-               if(xv == NULL) RETVAL++;
-               xv = get_cvs("Devel::PPPort::foobar", GV_ADDMULTI);
-               if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
-               xv = get_cvs("Devel::PPPort::get_cvs", 0);
-               if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
+        PREINIT:
+                CV* xv;
+        CODE:
+                RETVAL = 0;
+                xv = get_cvs("Devel::PPPort::foobar", 0);
+                if(xv == NULL) RETVAL++;
+                xv = get_cvs("Devel::PPPort::foobar", GV_ADDMULTI);
+                if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
+                xv = get_cvs("Devel::PPPort::get_cvs", 0);
+                if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
 OUTPUT:
-       RETVAL
+        RETVAL
 
 
 =tests plan => 12