there. This package overrides the implementation of these methods, not
the semantics.
-=over
+=over 4
=cut
join('',@m);
}
+sub clean
+{
+ my ($self) = @_;
+ my $s = &ExtUtils::MM_Unix::clean;
+ if ($GCC) {
+ $s .= <<'END';
+clean ::
+ -$(RM_F) dll.base dll.exp
+
+END
+ }
+ return $s;
+}
+
+
+
sub perl_archive
{
my ($self) = @_;
($NMAKE ? 'qw[ <<pmfiles.dat ],'
: $DMAKE ? 'qw[ $(mktmp,pmfiles.dat $(PM_TO_BLIB:s,\\,\\\\,)\n) ],'
: '{ qw[$(PM_TO_BLIB)] },'
- ).q{'}.$autodir.q{')"
+ ).q{'}.$autodir.q{','$(PM_FILTER)')"
}. ($NMAKE ? q{
$(PM_TO_BLIB)
<<