This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Dodge a NULL pointer dereference in cleanup of Class::DBI
[perl5.git] / lib / ExtUtils / MM_Win95.pm
CommitLineData
f6d6199c
MS
1package ExtUtils::MM_Win95;
2
3use vars qw($VERSION @ISA);
e0678a30 4$VERSION = 0.02;
f6d6199c
MS
5
6require ExtUtils::MM_Win32;
7@ISA = qw(ExtUtils::MM_Win32);
8
9
10# a few workarounds for command.com (very basic)
11
e0678a30
MS
12sub dist_test {
13 my($self) = shift;
14 return q{
15disttest : distdir
16 cd $(DISTVNAME)
17 $(ABSPERLRUN) Makefile.PL
18 $(MAKE) $(PASTHRU)
19 $(MAKE) test $(PASTHRU)
20 cd ..
21};
22}
23
f6d6199c
MS
24sub xs_c {
25 my($self) = shift;
26 return '' unless $self->needs_linking();
27 '
28.xs.c:
29 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
30 $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
31 '
32}
33
34sub xs_cpp {
35 my($self) = shift;
36 return '' unless $self->needs_linking();
37 '
38.xs.cpp:
39 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
40 $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.cpp
41 ';
42}
43
44# many makes are too dumb to use xs_c then c_o
45sub xs_o {
46 my($self) = shift;
47 return '' unless $self->needs_linking();
48 '
49.xs$(OBJ_EXT):
50 $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) \\
51 $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
52 $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
53 ';
54}
4da32025
MS
55
561;