This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove support for running PathTools on MacOS
[perl5.git] / dist / PathTools / lib / File / Spec / Mac.pm
index 345a829..34f0f30 100644 (file)
@@ -4,16 +4,11 @@ use strict;
 use Cwd ();
 require File::Spec::Unix;
 
-our $VERSION = '3.69';
+our $VERSION = '3.70';
 $VERSION =~ tr/_//d;
 
 our @ISA = qw(File::Spec::Unix);
 
-my $macfiles;
-if ($^O eq 'MacOS') {
-       $macfiles = eval { require Mac::Files };
-}
-
 sub case_tolerant { 1 }
 
 
@@ -343,27 +338,11 @@ sub devnull {
 
 =item rootdir
 
-Returns a string representing the root directory.  Under MacPerl,
-returns the name of the startup volume, since that's the closest in
-concept, although other volumes aren't rooted there. The name has a
-trailing ":", because that's the correct specification for a volume
-name on Mac OS.
-
-If Mac::Files could not be loaded, the empty string is returned.
+Returns the empty string.  Mac OS has no real root directory.
 
 =cut
 
-sub rootdir {
-#
-#  There's no real root directory on Mac OS. The name of the startup
-#  volume is returned, since that's the closest in concept.
-#
-    return '' unless $macfiles;
-    my $system = Mac::Files::FindFolder(&Mac::Files::kOnSystemDisk,
-       &Mac::Files::kSystemFolderType);
-    $system =~ s/:.*\Z(?!\n)/:/s;
-    return $system;
-}
+sub rootdir { '' }
 
 =item tmpdir