diff options
Diffstat (limited to 'installhtml')
| -rwxr-xr-x | installhtml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/installhtml b/installhtml index db1e612865..d73124ce13 100755 --- a/installhtml +++ b/installhtml @@ -515,7 +515,7 @@ sub installdir { || die "$0: error opening directory $podroot/$dir: $!\n"; # find the directories to recurse on - @dirlist = map { "$dir/$_" } + @dirlist = map { if ($^O eq 'VMS') {/^(.*)\.dir$/i; "$dir/$1";} else {"$dir/$_";}} grep(-d "$podroot/$dir/$_" && !/^\.{1,2}/, readdir(DIR)) if $recurse; rewinddir(DIR); |