diff options
| author | Ken Williams <ken@mathforum.org> | 2003-07-22 10:18:21 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-24 08:59:45 +0000 |
| commit | a1fc2545f876d2c56046836367f5646078d2a90a (patch) | |
| tree | a0770b1d0fd16835a39246c32f83bbf56f55543d /vms | |
| parent | 2d340b60e5064a4e3ddbd0fd329084a83392138f (diff) | |
| download | perl-a1fc2545f876d2c56046836367f5646078d2a90a.tar.gz | |
typo in VMS::Filespec
Message-Id: <A3E1AAA0-BC81-11D7-B0BB-003065F6D85A@mathforum.org>
p4raw-id: //depot/perl@20197
Diffstat (limited to 'vms')
| -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 |