diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec/Unix.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Unix.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm b/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm index c813cc170df..f76b29e3566 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm @@ -3,12 +3,15 @@ package File::Spec::Unix; use strict; use vars qw($VERSION); -$VERSION = '3.48_01'; +$VERSION = '3.56'; my $xs_version = $VERSION; $VERSION =~ tr/_//; -unless (defined &canonpath) { - eval { +#dont try to load XSLoader and DynaLoader only to ultimately fail on miniperl +if(!defined &canonpath && defined &DynaLoader::boot_DynaLoader) { + eval {#eval is questionable since we are handling potential errors like + #"Cwd object version 3.48 does not match bootstrap parameter 3.50 + #at lib/DynaLoader.pm line 216." by having this eval if ( $] >= 5.006 ) { require XSLoader; XSLoader::load("Cwd", $xs_version); |