summaryrefslogtreecommitdiff
path: root/minimod.pl
diff options
context:
space:
mode:
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>1997-04-07 00:00:00 +0000
committerChip Salzenberg <chip@atlantic.net>1997-04-07 00:00:00 +0000
commit8cc95fdbe3687330bd987cea170494b4cd263d90 (patch)
treee3a830736fef94663b44fc7cf30f0755de3e09c5 /minimod.pl
parent1061146bbd7c9a40c4288ec63427c8327cc0d5fa (diff)
downloadperl-8cc95fdbe3687330bd987cea170494b4cd263d90.tar.gz
[inseparable changes from match from perl-5.003_97b to perl-5.003_97c]
BUILD PROCESS Subject: Fix syntax error in Configure comment(!) From: Chip Salzenberg <chip@perl.com> Files: Configure Subject: For Solaris, if -DDEBUGGING, default to '-KPIC', not '-Kpic' From: Chip Salzenberg <chip@perl.com> Files: Configure Subject: Fix usage of dXSUB_SYS, esp. in ExtUtils::Miniperl From: Chip Salzenberg <chip@perl.com> Files: dosish.h minimod.pl os2/os2ish.h plan9/plan9ish.h vms/vmsish.h CORE LANGUAGE CHANGES Subject: Refine setgroups() behavior of C<$)> From: Chip Salzenberg <chip@perl.com> Files: mg.c pod/perldelta.pod pod/perlvar.pod Subject: Forbid -[Mm] on #! line From: Chip Salzenberg <chip@perl.com> Files: pod/perldelta.pod pod/perldiag.pod toke.c CORE PORTABILITY Subject: Special mkdir() for VMS Date: Tue, 08 Apr 1997 12:33:56 -0400 (EDT) From: Charles Bailey <bailey@hmivax.humgen.upenn.edu> Files: dosish.h lib/ExtUtils/MM_Unix.pm lib/File/Path.pm os2/os2ish.h plan9/plan9ish.h pp_sys.c unixish.h vms/vms.c vms/vmsish.h Msg-ID: 01IHGOXN6MZM0004K3@hmivax.humgen.upenn.edu (applied based on p5p patch as commit ebec1d4b2ca9c08d24035a369c7aa782aa058e66) DOCUMENTATION Subject: IO::Socket doc fix Date: Tue, 08 Apr 1997 15:30:43 -0400 From: Roderick Schertler <roderick@argon.org> Files: ext/IO/lib/IO/Socket.pm Msg-ID: 28383.860527843@eeyore.ibcinc.com (applied based on p5p patch as commit 4a51304ce091cb6d1ccc9f25e11753bd7d985b32) LIBRARY AND EXTENSIONS Subject: Replace Class::Template with improved Class::Struct From: Jim Miner <jfm@winternet.com> Files: MANIFEST lib/Class/Struct.pm lib/Class/Template.pm lib/File/stat.pm lib/Net/hostent.pm lib/Net/netent.pm lib/Net/protoent.pm lib/Net/servent.pm lib/Time/gmtime.pm lib/Time/localtime.pm lib/Time/tm.pm lib/User/grent.pm lib/User/pwent.pm pod/perldelta.pod pod/perlfaq7.pod pod/perlmod.pod pod/perltoot.pod Subject: MakeMaker pathname patch Date: Wed, 9 Apr 1997 20:08:23 +0100 From: Nick Ing-Simmons <nik@tiuk.ti.com> Files: lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MakeMaker.pm Msg-ID: 199704091908.UAA00877@ni-s.u-net.com (applied based on p5p patch as commit 9cbbd68ff8edc7de96e3471de49538d0b2b98173) Subject: Fix configuration of new socket From: Chip Salzenberg <chip@perl.com> Files: ext/IO/lib/IO/Socket.pm
Diffstat (limited to 'minimod.pl')
-rwxr-xr-xminimod.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/minimod.pl b/minimod.pl
index b9b70715b2..82760ee63d 100755
--- a/minimod.pl
+++ b/minimod.pl
@@ -40,7 +40,7 @@ $tail=<<'EOF!TAIL';
END
while (<MINI>) {
- print;
+ print unless /dXSUB_SYS/;
}
close MINI;
@@ -65,7 +65,9 @@ sub writemain{
my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
print $tail1;
- print " char *file = __FILE__;\n";
+ print "\tchar *file = __FILE__;\n";
+ print "\tdXSUB_SYS;\n" if $] > 5.002;
+
foreach $_ (@exts){
my($pname) = canon('/', $_);
my($mname, $cname, $ccode);