<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>> Date: Tue, 10 Jul 2007 16:49:15 -0300<br>> From: fglock@gmail.com<br>> <br>> Não achei uma recomendação específica, mas me parece que a<br>> recomendação é de que você faça o Makefile.PL chamar die() com uma<br>> mensagem de erro.<br>> <br>> Por exemplo:<br>> <br>> unless ($^O =~ /MSWin32/i) {<br>> die qq{This module requires a "native" (i.e. non-Cygwin) Microsoft } .<br>> qq{Windows platform.\n};<br>> }<br><br>Apelar para o Google Code não vale! :-D<br><br>http://www.google.com/codesearch?hl=en&q=+%22unless+(%24%5EO+%3D~+/MSWin32/i)%22+show:yvh6xIfX6R0:b6Yv6pjtgWQ:vForMIymj-0&sa=N&cd=1&ct=rc&cs_p=http://www.cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/Win32-UTCFileTime-1.45.tar.gz&cs_f=Win32-UTCFileTime-1.45/Makefile.PL#a0<br><br>Pode ser uma boa, mas eu não tenho idéia de como o smoke test vai encarar essa saída. A propósito, esse módulo nem tem testes para outros sistemas operacionais:<br><br>http://cpantesters.perl.org/show/Win32-UTCFileTime.html#Win32-UTCFileTime-1.46<br><br>Será que os testes tem regras diferentes para tudo debaixo do namespace Win32?<br><br>Eu tentei procurar algo parecido no libwin32 mas só achei isso:<br><br>package MY;<br>use Config;<br>sub post_initialize {<br> my $self = shift;<br> my @keep;<br> my $mingw32 = ($^O eq 'MSWin32') && ($Config{'cc'} =~ /^gcc/i);<br> warn "Not all subdirs build with Mingw32\n" if $mingw32;<br> foreach my $dir (@{$self->{'DIR'}}) {<br> if ($mingw32 && -f "$dir/mingw32.exc") {<br> warn "Skipping $dir on Mingw32\n";<br> }<br> else {<br> push(@keep,$dir);<br> }<br> }<br> $self->{DIR} = \@keep;<br> return $self->SUPER::post_initialize;<br>}<br><br>O que não ajuda nada, diga-se de passagem.<br><br>[]'s<br>Alceu<br><br /><hr />Change is good. See what's different about Windows Live Hotmail. <a href='http://www.windowslive-hotmail.com/learnmore/default.html?locale=en-us&ocid=RMT_TAGLM_HMWL_reten_changegood_0607' target='_new'>Check it out!</a></body>
</html>