This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tolerate spaces when fixing up __cplusplus output by old h2xs
authorJan Dubois <jand@activestate.com>
Wed, 30 Sep 1998 23:35:30 +0000 (01:35 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 2 Oct 1998 04:21:10 +0000 (04:21 +0000)
Message-ID: <3619a1e8.12336659@smtp1.ibm.net>
Subject: [PATCH 5.005_52]: xsubpp and PERL_OBJECT

p4raw-id: //depot/perl@1918

lib/ExtUtils/xsubpp

index 5c45a85..1ee7b29 100755 (executable)
@@ -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 $_;
 }