diff options
| author | kmx <kmx@volny.cz> | 2010-01-11 00:38:33 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2010-01-11 00:40:40 +0000 |
| commit | f3b9bb7d1f91ecfed13b90d5e1e22678c754e87b (patch) | |
| tree | bcc0617df18d6cc10d077c2c910b88047d9a1f20 /win32/config_h.PL | |
| parent | eac910c876359d864e67b412fa2d9f03b5ba8a0b (diff) | |
| download | perl-f3b9bb7d1f91ecfed13b90d5e1e22678c754e87b.tar.gz | |
Re: [perl #71852] Warning "/* within comment" in Win32 config.h-related files
(Applied patch and regenerated canned config files)
Message-ID: <4B44FB2B.8080509@volny.cz>
Diffstat (limited to 'win32/config_h.PL')
| -rw-r--r-- | win32/config_h.PL | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 531ddceb4d..89b85532a5 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -8,7 +8,8 @@ BEGIN } use File::Compare qw(compare); use File::Copy qw(copy); -my $name = $0; +use File::Basename qw(fileparse); +my ($name, $dir) = fileparse($0); $name =~ s#^(.*)\.PL$#../$1.SH#; my %opt; while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/) @@ -62,6 +63,7 @@ while (<SH>) munge(); s/\\\$/\$/g; s#/[ *\*]*\*/#/**/#; + s#(.)/\*\*/#$1/ **/# if(/^\/\*/); #avoid "/*" inside comments if (/^\s*#define\s+(PRIVLIB|SITELIB|VENDORLIB)_EXP/) { $_ = "#define ". $1 . "_EXP (win32_get_". lc($1) . "(PERL_VERSION_STRING, NULL))\t/**/\n"; @@ -69,7 +71,7 @@ while (<SH>) # incpush() handles archlibs, so disable them elsif (/^\s*#define\s+(ARCHLIB|SITEARCH|VENDORARCH)_EXP/) { - $_ = "/*#define ". $1 . "_EXP \"\"\t/**/\n"; + $_ = "/*#define ". $1 . "_EXP \"\"\t/ **/\n"; } print H; } |