Fix trashing broken symlinks
This commit is contained in:
@ -61,7 +61,7 @@ return file-systems that were mounted read-write."
|
|||||||
"Return the device id for the device on which PATH resides, or nil if it can't
|
"Return the device id for the device on which PATH resides, or nil if it can't
|
||||||
be determined."
|
be determined."
|
||||||
(handler-case
|
(handler-case
|
||||||
(osicat-posix:stat-dev (osicat-posix:stat path))
|
(osicat-posix:stat-dev (osicat-posix:lstat path))
|
||||||
(osicat-posix:posix-error ()
|
(osicat-posix:posix-error ()
|
||||||
nil)))
|
nil)))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user