typo in VMS::Filespec

Message-Id: <A3E1AAA0-BC81-11D7-B0BB-003065F6D85A@mathforum.org>

p4raw-id: //depot/perl@20197

diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm
index 42c15c2..2dd1df1 100644 (file)
--- 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