diff --git a/MANIFEST b/MANIFEST index 47f5425..5ce9a9f 100644 --- a/MANIFEST +++ b/MANIFEST @@ -10,8 +10,6 @@ README dist.ini lib/ExtUtils/Helpers.pm lib/ExtUtils/Helpers/Unix.pm -lib/ExtUtils/Helpers/VMS.pm -lib/ExtUtils/Helpers/Windows.pm t/make_executable.t t/man_pagename.t t/split_like_shell.t diff --git a/lib/ExtUtils/Helpers/VMS.pm b/lib/ExtUtils/Helpers/VMS.pm deleted file mode 100644 index cd0e210..0000000 --- a/lib/ExtUtils/Helpers/VMS.pm +++ /dev/null @@ -1,117 +0,0 @@ -package ExtUtils::Helpers::VMS; -$ExtUtils::Helpers::VMS::VERSION = '0.026'; -use strict; -use warnings FATAL => 'all'; - -use Exporter 5.57 'import'; -our @EXPORT = qw/make_executable detildefy/; - -use File::Copy qw/copy/; - -sub make_executable { - my $filename = shift; - my $batchname = "$filename.com"; - copy($filename, $batchname); - ExtUtils::Helpers::Unix::make_executable($batchname); - return; -} - -sub detildefy { - my $arg = shift; - - # Apparently double ~ are not translated. - return $arg if ($arg =~ /^~~/); - - # Apparently ~ followed by whitespace are not translated. - return $arg if ($arg =~ /^~ /); - - if ($arg =~ /^~/) { - my $spec = $arg; - - # Remove the tilde - $spec =~ s/^~//; - - # Remove any slash following the tilde if present. - $spec =~ s#^/##; - - # break up the paths for the merge - my $home = VMS::Filespec::unixify($ENV{HOME}); - - # In the default VMS mode, the trailing slash is present. - # In Unix report mode it is not. The parsing logic assumes that - # it is present. - $home .= '/' unless $home =~ m#/$#; - - # Trivial case of just ~ by it self - if ($spec eq '') { - $home =~ s#/$##; - return $home; - } - - my ($hvol, $hdir, $hfile) = File::Spec::Unix->splitpath($home); - if ($hdir eq '') { - # Someone has tampered with $ENV{HOME} - # So hfile is probably the directory since this should be - # a path. - $hdir = $hfile; - } - - my ($vol, $dir, $file) = File::Spec::Unix->splitpath($spec); - - my @hdirs = File::Spec::Unix->splitdir($hdir); - my @dirs = File::Spec::Unix->splitdir($dir); - - unless ($arg =~ m#^~/#) { - # There is a home directory after the tilde, but it will already - # be present in in @hdirs so we need to remove it by from @dirs. - - shift @dirs; - } - my $newdirs = File::Spec::Unix->catdir(@hdirs, @dirs); - - $arg = File::Spec::Unix->catpath($hvol, $newdirs, $file); - } - return $arg; -} - -# ABSTRACT: VMS specific helper bits - -__END__ - -=pod - -=encoding UTF-8 - -=head1 NAME - -ExtUtils::Helpers::VMS - VMS specific helper bits - -=head1 VERSION - -version 0.026 - -=for Pod::Coverage make_executable -detildefy - -=head1 AUTHORS - -=over 4 - -=item * - -Ken Williams - -=item * - -Leon Timmermans - -=back - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2004 by Ken Williams, Leon Timmermans. - -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. - -=cut diff --git a/lib/ExtUtils/Helpers/Windows.pm b/lib/ExtUtils/Helpers/Windows.pm deleted file mode 100644 index 8b232e4..0000000 --- a/lib/ExtUtils/Helpers/Windows.pm +++ /dev/null @@ -1,70 +0,0 @@ -package ExtUtils::Helpers::Windows; -$ExtUtils::Helpers::Windows::VERSION = '0.026'; -use strict; -use warnings FATAL => 'all'; - -use Exporter 5.57 'import'; -our @EXPORT = qw/make_executable detildefy/; - -use Config; -use Carp qw/carp croak/; -use ExtUtils::PL2Bat 'pl2bat'; - -sub make_executable { - my $script = shift; - if (-T $script && $script !~ / \. (?:bat|cmd) $ /x) { - pl2bat(in => $script, update => 1); - } - return; -} - -sub detildefy { - my $value = shift; - $value =~ s{ ^ ~ (?= [/\\] | $ ) }[$ENV{USERPROFILE}]x if $ENV{USERPROFILE}; - return $value; -} - -1; - -# ABSTRACT: Windows specific helper bits - -__END__ - -=pod - -=encoding UTF-8 - -=head1 NAME - -ExtUtils::Helpers::Windows - Windows specific helper bits - -=head1 VERSION - -version 0.026 - -=for Pod::Coverage make_executable -split_like_shell -detildefy - -=head1 AUTHORS - -=over 4 - -=item * - -Ken Williams - -=item * - -Leon Timmermans - -=back - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2004 by Ken Williams, Leon Timmermans. - -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. - -=cut