Update Devel-PPPort to CPAN version 3.21

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

diff --git a/cpan/Devel-PPPort/parts/inc/magic b/cpan/Devel-PPPort/parts/inc/magic
index 558fedd..59cd40b 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/magic
+++ b/cpan/Devel-PPPort/parts/inc/magic
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 21 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:49 +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.
 ##
@@ -210,115 +204,115 @@ __UNDEFINED__  SvVSTRING_mg(sv)  (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring
 
 void
 sv_catpv_mg(sv, string)
-       SV *sv;
-       char *string;
-       CODE:
-               sv_catpv_mg(sv, string);
+        SV *sv;
+        char *string;
+        CODE:
+                sv_catpv_mg(sv, string);
 
 void
 sv_catpvn_mg(sv, sv2)
-       SV *sv;
-       SV *sv2;
-       PREINIT:
-               char *str;
-               STRLEN len;
-       CODE:
-               str = SvPV(sv2, len);
-               sv_catpvn_mg(sv, str, len);
+        SV *sv;
+        SV *sv2;
+        PREINIT:
+                char *str;
+                STRLEN len;
+        CODE:
+                str = SvPV(sv2, len);
+                sv_catpvn_mg(sv, str, len);
 
 void
 sv_catsv_mg(sv, sv2)
-       SV *sv;
-       SV *sv2;
-       CODE:
-               sv_catsv_mg(sv, sv2);
+        SV *sv;
+        SV *sv2;
+        CODE:
+                sv_catsv_mg(sv, sv2);
 
 void
 sv_setiv_mg(sv, iv)
-       SV *sv;
-       IV iv;
-       CODE:
-               sv_setiv_mg(sv, iv);
+        SV *sv;
+        IV iv;
+        CODE:
+                sv_setiv_mg(sv, iv);
 
 void
 sv_setnv_mg(sv, nv)
-       SV *sv;
-       NV nv;
-       CODE:
-               sv_setnv_mg(sv, nv);
+        SV *sv;
+        NV nv;
+        CODE:
+                sv_setnv_mg(sv, nv);
 
 void
 sv_setpv_mg(sv, pv)
-       SV *sv;
-       char *pv;
-       CODE:
-               sv_setpv_mg(sv, pv);
+        SV *sv;
+        char *pv;
+        CODE:
+                sv_setpv_mg(sv, pv);
 
 void
 sv_setpvn_mg(sv, sv2)
-       SV *sv;
-       SV *sv2;
-       PREINIT:
-               char *str;
-               STRLEN len;
-       CODE:
-               str = SvPV(sv2, len);
-               sv_setpvn_mg(sv, str, len);
+        SV *sv;
+        SV *sv2;
+        PREINIT:
+                char *str;
+                STRLEN len;
+        CODE:
+                str = SvPV(sv2, len);
+                sv_setpvn_mg(sv, str, len);
 
 void
 sv_setsv_mg(sv, sv2)
-       SV *sv;
-       SV *sv2;
-       CODE:
-               sv_setsv_mg(sv, sv2);
+        SV *sv;
+        SV *sv2;
+        CODE:
+                sv_setsv_mg(sv, sv2);
 
 void
 sv_setuv_mg(sv, uv)
-       SV *sv;
-       UV uv;
-       CODE:
-               sv_setuv_mg(sv, uv);
+        SV *sv;
+        UV uv;
+        CODE:
+                sv_setuv_mg(sv, uv);
 
 void
 sv_usepvn_mg(sv, sv2)
-       SV *sv;
-       SV *sv2;
-       PREINIT:
-               char *str, *copy;
-               STRLEN len;
-       CODE:
-               str = SvPV(sv2, len);
-               New(42, copy, len+1, char);
-               Copy(str, copy, len+1, char);
-               sv_usepvn_mg(sv, copy, len);
+        SV *sv;
+        SV *sv2;
+        PREINIT:
+                char *str, *copy;
+                STRLEN len;
+        CODE:
+                str = SvPV(sv2, len);
+                New(42, copy, len+1, char);
+                Copy(str, copy, len+1, char);
+                sv_usepvn_mg(sv, copy, len);
 
 int
 SvVSTRING_mg(sv)
-       SV *sv;
-       CODE:
-               RETVAL = SvVSTRING_mg(sv) != NULL;
-       OUTPUT:
-               RETVAL
+        SV *sv;
+        CODE:
+                RETVAL = SvVSTRING_mg(sv) != NULL;
+        OUTPUT:
+                RETVAL
 
 int
 sv_magic_portable(sv)
-       SV *sv
-       PREINIT:
-               MAGIC *mg;
-               const char *foo = "foo";
-       CODE:
+        SV *sv
+        PREINIT:
+                MAGIC *mg;
+                const char *foo = "foo";
+        CODE:
 #if { VERSION >= 5.004 }
-               sv_magic_portable(sv, 0, '~', foo, 0);
-               mg = mg_find(sv, '~');
-               RETVAL = mg->mg_ptr == foo;
+                sv_magic_portable(sv, 0, '~', foo, 0);
+                mg = mg_find(sv, '~');
+                RETVAL = mg->mg_ptr == foo;
 #else
-               sv_magic(sv, 0, '~', (char *) foo, strlen(foo));
-               mg = mg_find(sv, '~');
-               RETVAL = strEQ(mg->mg_ptr, foo);
+                sv_magic(sv, 0, '~', (char *) foo, strlen(foo));
+                mg = mg_find(sv, '~');
+                RETVAL = strEQ(mg->mg_ptr, foo);
 #endif
-               sv_unmagic(sv, '~');
-       OUTPUT:
-               RETVAL
+                sv_unmagic(sv, '~');
+        OUTPUT:
+                RETVAL
 
 =tests plan => 15
 
@@ -367,4 +361,3 @@ ok(!Devel::PPPort::SvVSTRING_mg(4711));
 my $foo = 'bar';
 ok(Devel::PPPort::sv_magic_portable($foo));
 ok($foo eq 'bar');
-