This patch changes lib/ExtUtils/MM_Unix.pm to permit the list of
core files to be deleted to vary by operating system. It also
avoids using the "?" starname character on VOS, which we don't
implement in the native shell. I did not directly test the
changes, but I did do a careful desk-check, and I wrote a small
test program to run the sample statements.
This patch is against 15173.
### START OF PATCH ###
diff -urp oldperl/lib/ExtUtils/MM_Unix.pm newperl/lib/ExtUtils/MM_Unix.pm
--- oldperl/lib/ExtUtils/MM_Unix.pm Sat Mar 9 10:17:13 2002
+++ newperl/lib/ExtUtils/MM_Unix.pm Sat Mar 9 10:17:33 2002
@@ -442,8 +442,13 @@ EOT
}
push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
push(@otherfiles, qw[./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all
- perlmain.c tmon.out mon.out core core.*perl.*.?
- *perl.core so_locations pm_to_blib
+ perlmain.c tmon.out mon.out]);
+ if ($^O eq 'vos') {
+ push(@otherfiles, qw[*.kp]);
+ } else {
+ push(@otherfiles, qw[core core.*perl.*.? *perl.core]);
+ }
+ push(@otherfiles, qw[so_locations pm_to_blib
*$(OBJ_EXT) *$(LIB_EXT) perl.exe perl perl$(EXE_EXT)
$(BOOTSTRAP) $(BASEEXT).bso
$(BASEEXT).def lib$(BASEEXT).def
### END OF PATCH ###
Thanks
PG
--
Paul Green | Mail: [EMAIL PROTECTED]
Senior Technical Consultant | Voice: +1 978-461-7557 FAX: +1 978-461-3610
Stratus Technologies | Video: PictureTel/AT&T by request.
Maynard, MA 01754 | Disclaimer: I speak for myself, not Stratus.
