Charles Lane wrote:
> I ran across this problem when I had to use a rooted directory
[snip]
> Patch follows...
>
> diff -uBb lib/File/Basename.pm-orig lib/File/Basename.pm
> --- lib/File/Basename.pm-orig Wed May 10 09:47:58 2000
> +++ lib/File/Basename.pm Wed May 10 09:55:12 2000
> @@ -189,9 +189,13 @@
> }
> elsif ($fstype !~ /^VMS/i) { # default to Unix
> ($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#s);
> - if ($^O eq 'VMS' and $fullname =~ m:/[^/]+/000000/?:) {
> + if ($^O eq 'VMS' and $fullname =~ m:^(/[^/]+/000000/?):) {
> # dev:[000000] is top of VMS tree, similar to Unix '/'
> - ($basename,$dirpath) = ('',$fullname);
> + # so strip it off and treat the rest as "normal"
> + my $devspec = $1;
> + my $remainder = $';
Looks like a good overall effort. However, isn't mentioning of either
$` or $' supposed to be an "evil slowdown to be avoided at all
cost" (tm) sort of thing? Might it be rejected?
Peter Prymmer
