Update Devel-PPPort to CPAN version 3.21

[perl5.git] / cpan / Devel-PPPort / typemap

diff --git a/cpan/Devel-PPPort/typemap b/cpan/Devel-PPPort/typemap
index b18d5e4..c167084 100644 (file)
--- a/cpan/Devel-PPPort/typemap
+++ b/cpan/Devel-PPPort/typemap
@@ -4,13 +4,7 @@
 #
 ################################################################################
 #
-#  $Revision: 10 $
-#  $Author: mhx $
-#  $Date: 2010/03/07 13:15:40 +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.
 #
@@ -19,23 +13,23 @@
 #
 ################################################################################
 
-UV                     T_UV
+UV                      T_UV
 NV                      T_NV
-HV *                   T_HVREF
+HV *                    T_HVREF
 
 INPUT
 T_UV
-       $var = ($type)SvUV($arg)
+        $var = ($type)SvUV($arg)
 T_NV
-       $var = ($type)SvNV($arg)
+        $var = ($type)SvNV($arg)
 T_HVREF
-       if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
-           $var = (HV*)SvRV($arg);
-       else
-           Perl_croak(aTHX_ \"$var is not a hash reference\")
+        if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
+            $var = (HV*)SvRV($arg);
+        else
+            Perl_croak(aTHX_ \"$var is not a hash reference\")
 
 OUTPUT
 T_UV
-       sv_setuv($arg, (UV)$var);
+        sv_setuv($arg, (UV)$var);
 T_NV
-       sv_setnv($arg, (NV)$var);
+        sv_setnv($arg, (NV)$var);