From 463ea4b9ac9baea8f37871d557598d26c8e0b1e0 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 31 Aug 2007 14:14:52 +0000 Subject: [PATCH] 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 <46D79A90.50405@qsl.net>. p4raw-id: //depot/perl@31775 --- lib/File/Path.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 37ec8ea..3857fd4 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -572,8 +572,11 @@ sub _rmtree { # 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); } -- 2.7.4