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

[Craig A . Berry]

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]>.

Affected files ...

... //depot/perl/lib/File/Path.pm#51 edit

Differences ...

==== //depot/perl/lib/File/Path.pm#51 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#50~31484~     2007-06-27 22:42:49.000000000 -0700
+++ perl/lib/File/Path.pm       2007-08-31 07:14:52.000000000 -0700
@@ -572,8 +572,11 @@
 
            # 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 = reverse @files;
+               ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z##;
+               @files = map( $_ eq '.' ? '.;' : $_, @files );
+           }
            if ($Is_MacOS) {
                @files = map("$root$_", @files);
            }
End of Patch.