Change 33757 by [EMAIL PROTECTED] on 2008/04/27 10:13:49
Use File::Find rather than shell globbing to get the list of *.pm files
to pass to AutoSplit::autosplit_lib_modules(). This way we only need to
invoke miniperl once, and we don't miss anything that is 3 or more
levels deep.
Affected files ...
... //depot/perl/Makefile.SH#404 edit
Differences ...
==== //depot/perl/Makefile.SH#404 (text) ====
Index: perl/Makefile.SH
--- perl/Makefile.SH#403~33608~ 2008-03-30 08:48:08.000000000 -0700
+++ perl/Makefile.SH 2008-04-27 03:13:49.000000000 -0700
@@ -875,10 +875,10 @@
preplibrary: miniperl$(EXE_EXT) $(CONFIGPM) lib/lib.pm $(PREPLIBRARY_LIBPERL)
@sh ./makedir lib/auto
@echo " AutoSplitting perl library"
- $(LDLIBPTH) $(RUN) ./miniperl -Ilib -e 'use AutoSplit; \
- autosplit_lib_modules(@ARGV)' lib/*.pm
- $(LDLIBPTH) $(RUN) ./miniperl -Ilib -e 'use AutoSplit; \
- autosplit_lib_modules(@ARGV)' lib/*/*.pm
+ $(LDLIBPTH) $(RUN) ./miniperl -Ilib -MAutoSplit -MFile::Find -e ' \
+ find ({no_chdir=>1, wanted => \
+ sub {autosplit_lib_modules($$_) if /\.pm$$/}}, \
+ "lib")'
$(MAKE) lib/re.pm
lib/Config.pod: config.sh miniperl$(EXE_EXT) configpm Porting/Glossary
End of Patch.
