From: Ken Williams Date: Tue, 22 Jul 2003 15:18:21 +0000 (-0500) Subject: typo in VMS::Filespec X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1fc2545f876d2c56046836367f5646078d2a90a;p=p5sagit%2Fp5-mst-13.2.git typo in VMS::Filespec Message-Id: p4raw-id: //depot/perl@20197 --- diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm index 42c15c2..2dd1df1 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