Update Devel-PPPort to CPAN version 3.21

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

diff --git a/cpan/Devel-PPPort/parts/inc/shared_pv b/cpan/Devel-PPPort/parts/inc/shared_pv
index 76b5dee..921076f 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/shared_pv
+++ b/cpan/Devel-PPPort/parts/inc/shared_pv
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 7 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:44 +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.
 ##
@@ -62,36 +56,35 @@ __UNDEFINED__ SvSHARED_HASH(sv) (0 + SvUVX(sv))
 
 int
 newSVpvn_share()
-       PREINIT:
-               const char *s;
-               SV *sv;
-               STRLEN len;
-               U32 hash;
-       CODE:
-               RETVAL = 0;
-               s = "mhx";
-               len = 3;
-               PERL_HASH(hash, (char *) s, len);
-               sv = newSVpvn_share(s, len, 0);
-               s = 0;
-               RETVAL += strEQ(SvPV_nolen_const(sv), "mhx");
-               RETVAL += SvCUR(sv) == len;
-               RETVAL += SvSHARED_HASH(sv) == hash;
-               SvREFCNT_dec(sv);
-               s = "foobar";
-               len = 6;
-               PERL_HASH(hash, (char *) s, len);
-               sv = newSVpvn_share(s, -(I32) len, hash);
-               s = 0;
-               RETVAL += strEQ(SvPV_nolen_const(sv), "foobar");
-               RETVAL += SvCUR(sv) == len;
-               RETVAL += SvSHARED_HASH(sv) == hash;
-               SvREFCNT_dec(sv);
-       OUTPUT:
-               RETVAL
+        PREINIT:
+                const char *s;
+                SV *sv;
+                STRLEN len;
+                U32 hash;
+        CODE:
+                RETVAL = 0;
+                s = "mhx";
+                len = 3;
+                PERL_HASH(hash, (char *) s, len);
+                sv = newSVpvn_share(s, len, 0);
+                s = 0;
+                RETVAL += strEQ(SvPV_nolen_const(sv), "mhx");
+                RETVAL += SvCUR(sv) == len;
+                RETVAL += SvSHARED_HASH(sv) == hash;
+                SvREFCNT_dec(sv);
+                s = "foobar";
+                len = 6;
+                PERL_HASH(hash, (char *) s, len);
+                sv = newSVpvn_share(s, -(I32) len, hash);
+                s = 0;
+                RETVAL += strEQ(SvPV_nolen_const(sv), "foobar");
+                RETVAL += SvCUR(sv) == len;
+                RETVAL += SvSHARED_HASH(sv) == hash;
+                SvREFCNT_dec(sv);
+        OUTPUT:
+                RETVAL
 
 
 =tests plan => 1
 
 ok(&Devel::PPPort::newSVpvn_share(), 6);
-