File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
2
2
use Config;
3
3
use strict;
4
4
5
- our $VERSION = " 1.37 " ;
5
+ our $VERSION = " 1.38 " ;
6
6
7
7
my %err = ();
8
8
@@ -271,9 +271,9 @@ sub write_errno_pm {
271
271
close (CPPO);
272
272
}
273
273
274
- # escape $Config{'archname'}
275
- my $archname = $ Config {' archname' };
276
- $archname =~ s / ([@% \$ ]) / \\ $1 / g ;
274
+ # escape $Config{'archname'}, $Config{'osvers'}
275
+ my ( $archname , $osvers ) = @ Config {' archname' , ' osvers ' };
276
+ $_ = quotemeta for $archname , $osvers ;
277
277
278
278
# Write Errno.pm
279
279
297
297
print <<"CONFIG_CHECK_END" ;
298
298
use Config;
299
299
"\$ Config{'archname'}-\$ Config{'osvers'}" eq
300
- "$archname -$Config {' osvers'} " or
301
- die "Errno architecture ($archname -$Config {' osvers'} ) does not match executable architecture (\$ Config{'archname'}-\$ Config{'osvers'})";
300
+ "$archname -$osvers " or
301
+ die "Errno architecture ($archname -$osvers ) does not match executable architecture (\$ Config{'archname'}-\$ Config{'osvers'})";
302
302
303
303
CONFIG_CHECK_END
304
304
}
You can’t perform that action at this time.
0 commit comments