diff options
| author | lane@duphy4.physics.drexel.edu <lane@duphy4.physics.drexel.edu> | 1999-05-04 03:19:25 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 10:54:01 +0000 |
| commit | fe4c6be141b0b356b13c8403bfd72e3f9e782a25 (patch) | |
| tree | a9d9346881f3322ee6eeae11acf592db3f8275a8 /installhtml | |
| parent | eb57363fedc1e70c9a6269b74b72371ac0c5eeef (diff) | |
| download | perl-fe4c6be141b0b356b13c8403bfd72e3f9e782a25.tar.gz | |
pod->html VMS fixes
Message-Id: <3.0.6.32.19990504101925.02ecde30@ous.edu>
p4raw-id: //depot/perl@3371
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); |