diff options
| -rw-r--r-- | vms/ext/Filespec.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm index 42c15c2a3c..2dd1df1472 100644 --- a/vms/ext/Filespec.pm +++ b/vms/ext/Filespec.pm @@ -339,7 +339,7 @@ sub candelete ($) { return '' unless -w $fspec; $fspec =~ s#/$##; if ($fspec =~ m#/#) { - ($parent = $fspec) =~ s#/[^/]+$#; + ($parent = $fspec) =~ s#/[^/]+$##; return (-w $parent); } elsif ($parent = fileify($fspec)) { # fileify() here to expand lnms |