Update Devel-PPPort to CPAN version 3.21

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

diff --git a/cpan/Devel-PPPort/parts/inc/format b/cpan/Devel-PPPort/parts/inc/format
index 3a95b10..03c632d 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/format
+++ b/cpan/Devel-PPPort/parts/inc/format
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 10 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:48 +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.
 ##
@@ -23,19 +17,19 @@
 
 #ifndef IVdf
 #  if IVSIZE == LONGSIZE
-#    define    IVdf      "ld"
-#    define    UVuf      "lu"
-#    define    UVof      "lo"
-#    define    UVxf      "lx"
-#    define    UVXf      "lX"
+#    define     IVdf      "ld"
+#    define     UVuf      "lu"
+#    define     UVof      "lo"
+#    define     UVxf      "lx"
+#    define     UVXf      "lX"
+#  elif IVSIZE == INTSIZE
+#    define   IVdf      "d"
+#    define   UVuf      "u"
+#    define   UVof      "o"
+#    define   UVxf      "x"
+#    define   UVXf      "X"
 #  else
-#    if IVSIZE == INTSIZE
-#      define  IVdf      "d"
-#      define  UVuf      "u"
-#      define  UVof      "o"
-#      define  UVxf      "x"
-#      define  UVXf      "X"
-#    endif
+#    error "cannot define IV/UV formats"
 #  endif
 #endif
 
@@ -57,9 +51,9 @@
 
 void
 croak_NVgf(num)
-       NV num
-       PPCODE:
-               Perl_croak(aTHX_ "%.20" NVgf "\n", num);
+        NV num
+        PPCODE:
+                Perl_croak(aTHX_ "%.20" NVgf "\n", num);
 
 =tests plan => 1
 
@@ -67,4 +61,3 @@ my $num = 1.12345678901234567890;
 
 eval { Devel::PPPort::croak_NVgf($num) };
 ok($@ =~ /^1.1234567890/);
-