WriteMakefile(
NAME
=>
'Win32'
,
DISTNAME
=>
'libwin32'
,
VERSION_FROM
=>
'Win32.pm'
,
'dist'
=> {
COMPRESS
=>
'gzip -9f'
,
SUFFIX
=>
'gz'
},
($] < 5.005 ? () :
(
ABSTRACT
=>
'A collection of extensions that aims to provide '
.
'comprehensive access to the Windows API. '
,
AUTHOR
=>
'Gurusamy Sarathy <gsar@activestate.com>'
,
)),
);
sub
post_initialize {
my
$self
=
shift
;
my
@keep
;
my
$mingw32
= ($^O eq
'MSWin32'
) && (
$Config
{
'cc'
} =~ /^gcc/i);
warn
"Not all subdirs build with Mingw32\n"
if
$mingw32
;
foreach
my
$dir
(@{
$self
->{
'DIR'
}}) {
if
(
$mingw32
&& -f
"$dir/mingw32.exc"
) {
warn
"Skipping $dir on Mingw32\n"
;
}
else
{
push
(
@keep
,
$dir
);
}
}
$self
->{DIR} = \
@keep
;
return
$self
->SUPER::post_initialize;
}