X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installhtml;h=d73124ce13756520c5ead4cef168efaec393c820;hb=2b8dc4d2eb8ad36cf53b962575087dfa9dc6d602;hp=db1e612865a89b8f2c675e16c45fc66dcd6e4517;hpb=29f227c9ad9c7325fbd0ac33567c35e06a70acb5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installhtml b/installhtml
index db1e612..d73124c 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);