Fix case of broken symlink

rakudo · Feb 26, 2015 · 2eee799 · 2eee799
1 parent 7d11343
commit 2eee799
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -463,11 +463,13 @@ sub FILETEST-LDEVICE(Str $abspath) {
 }
 
 sub OBJECTIFY-ABSPATH(Str $abspath, :$check = True) {
-    FILETEST-f($abspath)
-      ?? IO::File.new(:$abspath)
-      !! FILETEST-d($abspath)
-        ?? IO::Dir.new(:abspath($abspath ~ '/'), :$check)
-        !! IO::Local.new(:$abspath);
+    FILETEST-e($abspath)
+      ?? FILETEST-f($abspath)
+        ?? IO::File.new(:$abspath)
+        !! FILETEST-d($abspath)
+          ?? IO::Dir.new(:abspath($abspath ~ '/'), :$check)
+          !! IO::Local.new(:$abspath)  # block device, unix socket, etc.
+      !! IO::Local.new(:$abspath);     # broken symlink
 }
 sub DIR-GATHER(Str $abspath,Mu $test) {
     gather {