Update Devel-PPPort to CPAN version 3.36

[perl5.git] / cpan / Devel-PPPort / PPPort_xs.PL

diff --git a/cpan/Devel-PPPort/PPPort_xs.PL b/cpan/Devel-PPPort/PPPort_xs.PL
index f1921c8..d00cffa 100644 (file)
--- a/cpan/Devel-PPPort/PPPort_xs.PL
+++ b/cpan/Devel-PPPort/PPPort_xs.PL
@@ -4,13 +4,7 @@
 #
 ################################################################################
 #
-#  $Revision: 16 $
-#  $Author: mhx $
-#  $Date: 2010/03/07 13:15:41 +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.
 #
@@ -21,7 +15,7 @@
 
 use strict;
 $^W = 1;
-require "parts/ppptools.pl";
+require "./parts/ppptools.pl";
 
 my %SECTION = (
   xshead => { code => '', header => "/* ---- code from __FILE__ ---- */" },
@@ -35,7 +29,7 @@ my %SECTION = (
 ENDHEADER
 );
 
-if (exists $ENV{PERL_NO_GET_CONTEXT} && $ENV{PERL_NO_GET_CONTEXT}) {
+if (not exists $ENV{PERL_NO_GET_CONTEXT} or $ENV{PERL_NO_GET_CONTEXT}) {
 $SECTION{xshead}{code} .= <<END;
 #define PERL_NO_GET_CONTEXT
 END
@@ -93,13 +87,7 @@ __DATA__
 *
 ********************************************************************************
 *
-*  $Revision: 16 $
-*  $Author: mhx $
-*  $Date: 2010/03/07 13:15:41 +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.
 *
@@ -132,7 +120,7 @@ __XSMISC__
 
 /* =========== END XSMISC =================================================== */
 
-MODULE = Devel::PPPort         PACKAGE = Devel::PPPort
+MODULE = Devel::PPPort          PACKAGE = Devel::PPPort
 
 BOOT:
 __XSBOOT__