This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove support for running PathTools on EPOC
authorZefram <zefram@fysh.org>
Mon, 18 Dec 2017 03:08:31 +0000 (03:08 +0000)
committerZefram <zefram@fysh.org>
Mon, 18 Dec 2017 03:08:31 +0000 (03:08 +0000)
EPOC hasn't been a supported platform since 5.18.  Note that the code
for processing EPOC-style paths remains, and can be run on supported
platforms.  [perl #130818]

dist/PathTools/Cwd.pm
dist/PathTools/lib/File/Spec.pm

index 0f7364e..8f1d406 100644 (file)
@@ -135,15 +135,6 @@ my %METHOD_MAP =
     realpath           => 'fast_abs_path',
    },
 
     realpath           => 'fast_abs_path',
    },
 
-   epoc =>
-   {
-    cwd                        => '_epoc_cwd',
-    getcwd             => '_epoc_cwd',
-    fastgetcwd         => '_epoc_cwd',
-    fastcwd            => '_epoc_cwd',
-    abs_path           => 'fast_abs_path',
-   },
-
    MacOS =>
    {
     getcwd             => 'cwd',
    MacOS =>
    {
     getcwd             => 'cwd',
@@ -666,11 +657,6 @@ sub _qnx_abs_path {
     return $realpath;
 }
 
     return $realpath;
 }
 
-sub _epoc_cwd {
-    return $ENV{'PWD'} = EPOC::getcwd();
-}
-
-
 # Now that all the base-level functions are set up, alias the
 # user-level functions to the right places
 
 # Now that all the base-level functions are set up, alias the
 # user-level functions to the right places
 
index 187751c..b09ed6b 100644 (file)
@@ -9,7 +9,6 @@ my %module = (MacOS   => 'Mac',
              MSWin32 => 'Win32',
              os2     => 'OS2',
              VMS     => 'VMS',
              MSWin32 => 'Win32',
              os2     => 'OS2',
              VMS     => 'VMS',
-             epoc    => 'Epoc',
              NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
              symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
              dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
              NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
              symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
              dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.