diff options
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; } |