In message <[EMAIL PROTECTED]> on Thu, 18 Nov 2004 15:21:42 -0600, "Craig A.
Berry" <[EMAIL PROTECTED]> said:
craigberry> So it seems to me we want to do the same thing DCL does, which the
craigberry> following little patch will take care of:
craigberry>
craigberry> --- lib/File/Spec/VMS.pm;-0 Mon Nov 1 10:03:24 2004
craigberry> +++ lib/File/Spec/VMS.pm Thu Nov 11 09:15:52 2004
craigberry> @@ -182,7 +182,7 @@ sub canonpath {
craigberry> $path =~ s/\.[^\]\.]+\.-\./\./g; # .foo.-. ==>
.
craigberry> $path =~ s/\[[^\]\.]+\.-\./\[/g; # [foo.-. ==>
[
craigberry> $path =~ s/\.[^\]\.]+\.-\]/\]/g; # .foo.-] ==>
]
craigberry> - $path =~ s/\[[^\]\.]+\.-\]/\[\]/g; # [foo.-] ==>
[]
craigberry> + $path =~ s/\[[^\]\.]+\.-\]/\[000000\]/g;# [foo.-] ==>
[000000]
craigberry> $path =~ s/\[\]//; # [] ==>
craigberry> return $path;
craigberry> }
craigberry> [eop]
That's a perfectly appropriate change. Thanks for catching it!
How's that for feedback?
Cheers,
Richard
-----
Please consider sponsoring my work on free software.
See http://www.free.lp.se/sponsoring.html for details.
--
Richard Levitte [EMAIL PROTECTED]
http://richard.levitte.org/
"When I became a man I put away childish things, including
the fear of childishness and the desire to be very grown up."
-- C.S. Lewis
