Re: Change 31775: Avoid infinite recursion in File::Path::_rmtree on VMS when there

[John E. Malmberg]

Craig A . Berry wrote:
Change 31775 by [EMAIL PROTECTED] on 2007/08/31 14:14:52
        Avoid infinite recursion in File::Path::_rmtree on VMS when there
        is a file present with a single dot as the name.  Reported by
        John Malmberg in <[EMAIL PROTECTED]>.


If a file named '.' is present in a directory, it will aways be the 
first file, so this should be a bit more efficient.

Also the VMS file named '.' shows up as '' according to the GNV ls 
command.  I have not yet tested what happens in Perl.when the CRTL is 
placed into UNIX REPORT mode.

So this may need to check for a file specification of '' also.

            # Deleting large numbers of files from VMS Files-11 filesystems
            # is faster if done in reverse ASCIIbetical order
            @files = reverse @files if $Is_VMS;
            ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z## if $Is_VMS;
            if ($Is_VMS) {
                $files = $file[0] eq '.' ? '.;' : $file[0];
                @files = reverse @files;
                ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z##;
            }
            if ($Is_MacOS) {
                @files = map("$root$_", @files);
            }