diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Config.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Config.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/Config.pm b/Master/tlpkg/tlperl/lib/Config.pm index 1257b5287f7..779cf2da000 100644 --- a/Master/tlpkg/tlperl/lib/Config.pm +++ b/Master/tlpkg/tlperl/lib/Config.pm @@ -10,7 +10,7 @@ use strict; use warnings; use vars '%Config', '$VERSION'; -$VERSION = "5.020002"; +$VERSION = "5.022001"; # Skip @Config::EXPORT because it only contains %Config, which we special # case below as it's not a function. @Config::EXPORT won't change in the @@ -56,11 +56,11 @@ sub import { return; } -die "$0: Perl lib version (5.20.2) doesn't match executable '$^X' version ($])" +die "$0: Perl lib version (5.22.1) doesn't match executable '$^X' version ($])" unless $^V; -$^V eq 5.20.2 - or die sprintf "%s: Perl lib version (5.20.2) doesn't match executable '$^X' version (%vd)", $0, $^V; +$^V eq 5.22.1 + or die sprintf "%s: Perl lib version (5.22.1) doesn't match executable '$^X' version (%vd)", $0, $^V; sub FETCH { @@ -85,7 +85,7 @@ sub AUTOLOAD { my $rootdir = __FILE__; $rootdir =~ s![\\/][^\\/]*[\\/][^\\/]*$!!; $rootdir =~ s!/!\\!g; -my $mingdir = "x:\\mingw"; +my $mingdir = "x:\\wprogs\\mingw"; # tie returns the object, so the value returned to require will be true. tie %Config, 'Config', { @@ -103,7 +103,7 @@ tie %Config, 'Config', { ldlibpthname => '', libpth => "$mingdir\\lib", osname => 'MSWin32', - osvers => '4.0', + osvers => '6.1', path_sep => ';', privlibexp => "$rootdir\\lib", scriptdir => "$rootdir\\bin", @@ -112,5 +112,5 @@ tie %Config, 'Config', { so => 'dll', useithreads => 'define', usevendorprefix => undef, - version => '5.20.2', + version => '5.22.1', }; |