summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/ExtUtils/CBuilder.pm19
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");
}
}