diff options
| author | Ulrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de> | 1997-04-11 14:59:00 +0200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
| commit | d3e8569c62819ccd17f9de64244d9bd181aa37b6 (patch) | |
| tree | 168d2849eedd5a5b6a550f04c04cf51398286167 | |
| parent | ba6d6ac996755f455b4d1475ebba4d130f850f9a (diff) | |
| download | perl-d3e8569c62819ccd17f9de64244d9bd181aa37b6.tar.gz | |
MM_Unix patch for use under CVS
Subject: Re: MM_Unix patch
>>>>> "Nick" == Nick Ing-Simmons <nik@tiuk.ti.com> writes:
Nick> Seems a little strong did you mean /^\.#/ ?
No. Every '#' in a Makefile file list will break the list:
Makefile
,-----
| FILES = foo \
| bar#bazz \
| bizz
|
| all:
| @echo $(FILES)
`-----
Shell
,-----
| % make -f ~/tmp/Makefile
| foo bar
`-----
Below is a more complete patch.
p5p-msgid: yfmd8s1vhpn.fsf@ls6.informatik.uni-dortmund.de
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 928e4ce338..693a6a97af 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -1166,9 +1166,11 @@ sub init_dirscan { # --- File and Directory Lists (.xs .pm .pod etc) local(%pm); #the sub in find() has to see this hash $ignore{'test.pl'} = 1; $ignore{'makefile.pl'} = 1 if $Is_VMS; + FILE: foreach $name ($self->lsdir($self->curdir)){ next if $name eq $self->curdir or $name eq $self->updir or $ignore{$name}; next unless $self->libscan($name); + next FILE if $name =~ /\#/; if (-d $name){ next if -l $name; # We do not support symlinks at all $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL")); @@ -1242,6 +1244,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); |