diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
| commit | 4ecf31dc2ef24f00f306797be7422f5697f8008c (patch) | |
| tree | 5bf0f4d9b09d2a1b47381a8211e5b6a20f1979e4 | |
| parent | ba6d6ac996755f455b4d1475ebba4d130f850f9a (diff) | |
| download | perl-4ecf31dc2ef24f00f306797be7422f5697f8008c.tar.gz | |
MM_Unix patch for use under CVS
(this is the same change as commit d3e8569c62819ccd17f9de64244d9bd181aa37b6, but as applied)
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 928e4ce338..6f85c8cc45 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -1167,6 +1167,7 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) $ignore{'test.pl'} = 1; $ignore{'makefile.pl'} = 1 if $Is_VMS; foreach $name ($self->lsdir($self->curdir)){ + next if $name =~ /\#/; next if $name eq $self->curdir or $name eq $self->updir or $ignore{$name}; next unless $self->libscan($name); if (-d $name){ @@ -1242,6 +1243,7 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) } return; } + return if /\#/; my($path, $prefix) = ($File::Find::name, '$(INST_LIBDIR)'); my($striplibpath,$striplibname); $prefix = '$(INST_LIB)' if (($striplibpath = $path) =~ s:^(\W*)lib\W:$1:i); |