diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm b/Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm index 17a49633984..6ce0c687943 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm @@ -1,10 +1,12 @@ package ExtUtils::CBuilder; -$ExtUtils::CBuilder::VERSION = '0.280221'; +$ExtUtils::CBuilder::VERSION = '0.280225'; use File::Spec (); use File::Path (); use File::Basename (); use Perl::OSType qw/os_type/; +use warnings; +use strict; use vars qw(@ISA); # We only use this once - don't waste a symbol table entry on it. @@ -18,17 +20,18 @@ my $load = sub { { my @package = split /::/, __PACKAGE__; - + my $ostype = os_type(); if (grep {-e File::Spec->catfile($_, @package, 'Platform', $^O) . '.pm'} @INC) { - $load->(__PACKAGE__ . "::Platform::$^O"); - - } elsif ( $ostype && grep {-e File::Spec->catfile($_, @package, 'Platform', $ostype) . '.pm'} @INC) { - $load->(__PACKAGE__ . "::Platform::$ostype"); - + $load->(__PACKAGE__ . "::Platform::$^O"); + + } elsif ( $ostype && + grep {-e File::Spec->catfile($_, @package, 'Platform', $ostype) . '.pm'} @INC) { + $load->(__PACKAGE__ . "::Platform::$ostype"); + } else { - $load->(__PACKAGE__ . "::Base"); + $load->(__PACKAGE__ . "::Base"); } } |