From: Jan Dubois <jand@activestate.com>
Date: Wed, 30 Sep 1998 23:35:30 +0000 (+0200)
Subject: tolerate spaces when fixing up __cplusplus output by old h2xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b85ee8280fe0da9805652c9ef0aadee20b074713;hp=fb164848da8057b394c23415ecfbb92d41f4b650;p=p5sagit%2Fp5-mst-13.2.git

tolerate spaces when fixing up __cplusplus output by old h2xs
	Message-ID: <3619a1e8.12336659@smtp1.ibm.net>
	Subject: [PATCH 5.005_52]: xsubpp and PERL_OBJECT

p4raw-id: //depot/perl@1918
---

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 5c45a85..1ee7b29 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -776,7 +776,7 @@ while (<$FH>) {
 	/^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/;
 
     if ($OBJ) {
-        s/#if(?:def|\s+defined)\s+(\(__cplusplus\)|__cplusplus)/#if defined(__cplusplus) && !defined(PERL_OBJECT)/;
+        s/#if(?:def\s|\s+defined)\s*(\(__cplusplus\)|__cplusplus)/#if defined(__cplusplus) && !defined(PERL_OBJECT)/;
     }
     print $_;
 }