diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-09-20 12:04:24 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-09-21 10:01:42 +0200 |
| commit | b5afd3466ff5e5b70ea2921169f138f02727183e (patch) | |
| tree | 1581582fe7a415e98b8c5bfacd57da36783b74e2 /lib/File/Copy.pm | |
| parent | a21c949457ed8dffe5096a444346d641f9a09a6e (diff) | |
| download | perl-b5afd3466ff5e5b70ea2921169f138f02727183e.tar.gz | |
Remove the MPE/iX port.
MPE/iX was a business-oriented minicomputer operating system made by
Hewlett-Packard. Support from HP terminated at the end of 2010.
Diffstat (limited to 'lib/File/Copy.pm')
| -rw-r--r-- | lib/File/Copy.pm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index ef27037c4b..c34670c66b 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -22,7 +22,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.24'; +$VERSION = '2.25'; require Exporter; @ISA = qw(Exporter); @@ -154,7 +154,6 @@ sub copy { if (defined &syscopy && !$Syscopy_is_copy && !$to_a_handle && !($from_a_handle && $^O eq 'os2' ) # OS/2 cannot handle handles - && !($from_a_handle && $^O eq 'mpeix') # and neither can MPE/iX. && !($from_a_handle && $^O eq 'MSWin32') && !($from_a_handle && $^O eq 'NetWare') ) @@ -412,13 +411,6 @@ sub mv { _move(@_,\&cp); } unless (defined &syscopy) { if ($^O eq 'VMS') { *syscopy = \&rmscopy; - } elsif ($^O eq 'mpeix') { - *syscopy = sub { - return 0 unless @_ == 2; - # Use the MPE cp program in order to - # preserve MPE file attributes. - return system('/bin/cp', '-f', $_[0], $_[1]) == 0; - }; } elsif ($^O eq 'MSWin32' && defined &DynaLoader::boot_DynaLoader) { # Win32::CopyFile() fill only work if we can load Win32.xs *syscopy = sub { |