Update Devel-PPPort to CPAN version 3.21

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

diff --git a/cpan/Devel-PPPort/parts/inc/sv_xpvf b/cpan/Devel-PPPort/parts/inc/sv_xpvf
index c2ad0df..3a6c8b0 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/sv_xpvf
+++ b/cpan/Devel-PPPort/parts/inc/sv_xpvf
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 11 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:46 +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.
 ##
@@ -209,82 +203,82 @@ static void test_sv_vsetpvf(pTHX_ SV *sv, const char *pat, ...)
 
 SV *
 vnewSVpvf()
-       CODE:
-               RETVAL = test_vnewSVpvf(aTHX_ "%s-%d", "Perl", 42);
-       OUTPUT:
-               RETVAL
+        CODE:
+                RETVAL = test_vnewSVpvf(aTHX_ "%s-%d", "Perl", 42);
+        OUTPUT:
+                RETVAL
 
 SV *
 sv_vcatpvf(sv)
-       SV *sv
-       CODE:
-               RETVAL = newSVsv(sv);
-               test_sv_vcatpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
-       OUTPUT:
-               RETVAL
+        SV *sv
+        CODE:
+                RETVAL = newSVsv(sv);
+                test_sv_vcatpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
+        OUTPUT:
+                RETVAL
 
 SV *
 sv_vsetpvf(sv)
-       SV *sv
-       CODE:
-               RETVAL = newSVsv(sv);
-               test_sv_vsetpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
-       OUTPUT:
-               RETVAL
+        SV *sv
+        CODE:
+                RETVAL = newSVsv(sv);
+                test_sv_vsetpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
+        OUTPUT:
+                RETVAL
 
 void
 sv_catpvf_mg(sv)
-       SV *sv
-       CODE:
+        SV *sv
+        CODE:
 #if { VERSION >= 5.004 }
-               sv_catpvf_mg(sv, "%s-%d", "Perl", 42);
+                sv_catpvf_mg(sv, "%s-%d", "Perl", 42);
 #endif
 
 void
 Perl_sv_catpvf_mg(sv)
-       SV *sv
-       CODE:
+        SV *sv
+        CODE:
 #if { VERSION >= 5.004 }
-               Perl_sv_catpvf_mg(aTHX_ sv, "%s-%d", "-Perl", 43);
+                Perl_sv_catpvf_mg(aTHX_ sv, "%s-%d", "-Perl", 43);
 #endif
 
 void
 sv_catpvf_mg_nocontext(sv)
-       SV *sv
-       CODE:
+        SV *sv
+        CODE:
 #if { VERSION >= 5.004 }
 #ifdef PERL_IMPLICIT_CONTEXT
-               sv_catpvf_mg_nocontext(sv, "%s-%d", "-Perl", 44);
+                sv_catpvf_mg_nocontext(sv, "%s-%d", "-Perl", 44);
 #else
-               sv_catpvf_mg(sv, "%s-%d", "-Perl", 44);
+                sv_catpvf_mg(sv, "%s-%d", "-Perl", 44);
 #endif
 #endif
 
 void
 sv_setpvf_mg(sv)
-       SV *sv
-       CODE:
+        SV *sv
+        CODE:
 #if { VERSION >= 5.004 }
-               sv_setpvf_mg(sv, "%s-%d", "mhx", 42);
+                sv_setpvf_mg(sv, "%s-%d", "mhx", 42);
 #endif
 
 void
 Perl_sv_setpvf_mg(sv)
-       SV *sv
-       CODE:
+        SV *sv
+        CODE:
 #if { VERSION >= 5.004 }
-               Perl_sv_setpvf_mg(aTHX_ sv, "%s-%d", "foo", 43);
+                Perl_sv_setpvf_mg(aTHX_ sv, "%s-%d", "foo", 43);
 #endif
 
 void
 sv_setpvf_mg_nocontext(sv)
-       SV *sv
-       CODE:
+        SV *sv
+        CODE:
 #if { VERSION >= 5.004 }
 #ifdef PERL_IMPLICIT_CONTEXT
-               sv_setpvf_mg_nocontext(sv, "%s-%d", "bar", 44);
+                sv_setpvf_mg_nocontext(sv, "%s-%d", "bar", 44);
 #else
-               sv_setpvf_mg(sv, "%s-%d", "bar", 44);
+                sv_setpvf_mg(sv, "%s-%d", "bar", 44);
 #endif
 #endif
 
@@ -317,5 +311,3 @@ ok($h{bar}, $] >= 5.004 ? 'foo-43' : '');
 
 &Devel::PPPort::sv_setpvf_mg_nocontext($h{bar});
 ok($h{bar}, $] >= 5.004 ? 'bar-44' : '');
-
-