typo in VMS::Filespec
authorKen Williams <ken@mathforum.org>
Tue, 22 Jul 2003 15:18:21 +0000 (10:18 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 24 Jul 2003 08:59:45 +0000 (08:59 +0000)
Message-Id: <A3E1AAA0-BC81-11D7-B0BB-003065F6D85A@mathforum.org>

p4raw-id: //depot/perl@20197

vms/ext/Filespec.pm

index 42c15c2..2dd1df1 100644 (file)
@@ -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