diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/Platform')
14 files changed, 36 insertions, 17 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Amiga.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Amiga.pm index 9356325c9f4..a4b95414f84 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Amiga.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Amiga.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Amiga; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Default.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Default.pm index 8d46fc47d56..b4d2ca2f4a4 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Default.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Default.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Default; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/EBCDIC.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/EBCDIC.pm index 140e27872aa..a030ba9573b 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/EBCDIC.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/EBCDIC.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::EBCDIC; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/MPEiX.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/MPEiX.pm index 66bbdc95da6..33fae1c5a7f 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/MPEiX.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/MPEiX.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::MPEiX; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/MacOS.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/MacOS.pm index b80781bd955..fc205d3610d 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/MacOS.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/MacOS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::MacOS; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; use vars qw(@ISA); diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/RiscOS.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/RiscOS.pm index 95e31515876..94f84580e1d 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/RiscOS.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/RiscOS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::RiscOS; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm index 0be5fc7df07..956c64e4e7a 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Unix; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/VMS.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/VMS.pm index f406b7afb6f..bf2118b23b2 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/VMS.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/VMS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::VMS; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; use Config; @@ -77,10 +77,29 @@ Prefixify taking into account VMS' filepath syntax. =cut # Translated from ExtUtils::MM_VMS::prefixify() + +sub _catprefix { + my($self, $rprefix, $default) = @_; + + my($rvol, $rdirs) = File::Spec->splitpath($rprefix); + if( $rvol ) { + return File::Spec->catpath($rvol, + File::Spec->catdir($rdirs, $default), + '' + ) + } + else { + return File::Spec->catdir($rdirs, $default); + } +} + + sub _prefixify { my($self, $path, $sprefix, $type) = @_; my $rprefix = $self->prefix; + return '' unless defined $path; + $self->log_verbose(" prefixify $path from $sprefix to $rprefix\n"); # Translate $(PERLPREFIX) to a real path. @@ -90,7 +109,7 @@ sub _prefixify { $self->log_verbose(" rprefix translated to $rprefix\n". " sprefix translated to $sprefix\n"); - if( length $path == 0 ) { + if( length($path) == 0 ) { $self->log_verbose(" no path to prefixify.\n") } elsif( !File::Spec->file_name_is_absolute($path) ) { diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/VOS.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/VOS.pm index 001a9507d44..fd809c0163b 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/VOS.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/VOS.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::VOS; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Base; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Windows.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Windows.pm index 1e248a75c5f..2924f9d0007 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Windows.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Windows.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Windows; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Config; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/aix.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/aix.pm index dab064805d3..59eec0d36d0 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/aix.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/aix.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::aix; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm index eb45b62f0e6..7b7680488c9 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::cygwin; use strict; use vars qw($VERSION); -$VERSION = '0.360301'; # patched in bleadperl +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; @@ -14,9 +14,9 @@ sub manpage_separator { } # Copied from ExtUtils::MM_Cygwin::maybe_command() -# If our path begins with F</cygdrive/> then we use M::B::Platform::Windows +# If our path begins with F</cygdrive/> then we use the Windows version # to determine if it may be a command. Otherwise we use the tests -# from M::B::Platform::Unix. +# from C<ExtUtils::MM_Unix>. sub _maybe_command { my ($self, $file) = @_; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/darwin.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/darwin.pm index c2f3126c440..5c9a1770bb4 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/darwin.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/darwin.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::darwin; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/os2.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/os2.pm index be164ae980b..b78d153ee04 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/os2.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/os2.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::os2; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.3800'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; |