diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-07-11 07:44:41 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-11 16:48:09 +0000 |
| commit | d71e5ff2e4c4bd22812aaff6cc21c601469f9238 (patch) | |
| tree | 896152969363dcb9bb1686743de408acca8ef8cf /lib | |
| parent | 723d369be9d12e24783142396dae96a04cd0ca6a (diff) | |
| download | perl-d71e5ff2e4c4bd22812aaff6cc21c601469f9238.tar.gz | |
MM_Unix.pm : work around File::Find problem on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.1.5.0.20020708172342.03422ac8@exchi01>
p4raw-id: //depot/perl@17488
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 0cd45eb962..bb76013380 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -1349,8 +1349,15 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) # (which includes PARENT_NAME). This is a subtle distinction but one # that's important for nested modules. - $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}] + if ($Is_VMS) { + # avoid logical name collisions by adding directory syntax + $self->{PMLIBDIRS} = ['./lib', './' . $self->{BASEEXT}] unless $self->{PMLIBDIRS}; + } + else { + $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}] + unless $self->{PMLIBDIRS}; + } #only existing directories that aren't in $dir are allowed |