Update Devel-PPPort to CPAN version 3.21

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

diff --git a/cpan/Devel-PPPort/parts/inc/threads b/cpan/Devel-PPPort/parts/inc/threads
index 7df6bd7..830fadf 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/threads
+++ b/cpan/Devel-PPPort/parts/inc/threads
@@ -1,12 +1,6 @@
 ################################################################################
 ##
-##  $Revision: 12 $
-##  $Author: mhx $
-##  $Date: 2010/03/07 13:15:47 +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.
 ##
@@ -55,21 +49,20 @@ __UNDEFINED__  dTHXoa(x)  dTHXa(x)
 
 IV
 no_THX_arg(sv)
-       SV *sv
-       CODE:
-               RETVAL = 1 + sv_2iv(sv);
-       OUTPUT:
-               RETVAL
+        SV *sv
+        CODE:
+                RETVAL = 1 + sv_2iv(sv);
+        OUTPUT:
+                RETVAL
 
 void
 with_THX_arg(error)
-       char *error
-       PPCODE:
-               Perl_croak(aTHX_ "%s", error);
+        char *error
+        PPCODE:
+                Perl_croak(aTHX_ "%s", error);
 
 =tests plan => 2
 
 ok(&Devel::PPPort::no_THX_arg("42"), 43);
 eval { &Devel::PPPort::with_THX_arg("yes\n"); };
 ok($@ =~ /^yes/);
-