Update Devel-PPPort to CPAN version 3.21

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

diff --git a/cpan/Devel-PPPort/parts/inc/newSVpv b/cpan/Devel-PPPort/parts/inc/newSVpv
index 6925a7a..513461e 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/newSVpv
+++ b/cpan/Devel-PPPort/parts/inc/newSVpv
@@ -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.
 ##
@@ -60,29 +54,29 @@ newSVpvn_flags(pTHX_ const char *s, STRLEN len, U32 flags)
 
 void
 newSVpvn()
-       PPCODE:
-               mXPUSHs(newSVpvn("test", 4));
-               mXPUSHs(newSVpvn("test", 2));
-               mXPUSHs(newSVpvn("test", 0));
-               mXPUSHs(newSVpvn(NULL, 2));
-               mXPUSHs(newSVpvn(NULL, 0));
-               XSRETURN(5);
+        PPCODE:
+                mXPUSHs(newSVpvn("test", 4));
+                mXPUSHs(newSVpvn("test", 2));
+                mXPUSHs(newSVpvn("test", 0));
+                mXPUSHs(newSVpvn(NULL, 2));
+                mXPUSHs(newSVpvn(NULL, 0));
+                XSRETURN(5);
 
 void
 newSVpvn_flags()
-       PPCODE:
-               XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP));
-               XPUSHs(newSVpvn_flags("test", 2, SVs_TEMP));
-               XPUSHs(newSVpvn_flags("test", 0, SVs_TEMP));
-               XPUSHs(newSVpvn_flags(NULL, 2, SVs_TEMP));
-               XPUSHs(newSVpvn_flags(NULL, 0, SVs_TEMP));
-               XSRETURN(5);
+        PPCODE:
+                XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP));
+                XPUSHs(newSVpvn_flags("test", 2, SVs_TEMP));
+                XPUSHs(newSVpvn_flags("test", 0, SVs_TEMP));
+                XPUSHs(newSVpvn_flags(NULL, 2, SVs_TEMP));
+                XPUSHs(newSVpvn_flags(NULL, 0, SVs_TEMP));
+                XSRETURN(5);
 
 void
 newSVpvn_utf8()
-       PPCODE:
-               XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP|SVf_UTF8));
-               XSRETURN(1);
+        PPCODE:
+                XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP|SVf_UTF8));
+                XSRETURN(1);
 
 =tests plan => 15