diff options
| author | Jan Dubois <jand@activestate.com> | 1998-10-01 01:35:30 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-02 04:21:10 +0000 |
| commit | b85ee8280fe0da9805652c9ef0aadee20b074713 (patch) | |
| tree | a2a38b17b1ad990e712d6b42426850b8beddd4e5 | |
| parent | fb164848da8057b394c23415ecfbb92d41f4b650 (diff) | |
| download | perl-b85ee8280fe0da9805652c9ef0aadee20b074713.tar.gz | |
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
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 5c45a8556a..1ee7b29449 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 $_; } |