my $file;
foreach $file (get_files()) {
process_file($file);
- if ($^O eq 'MSWin32') {
- $file =~ s/errno/winsock/;
- process_file($file);
- }
}
write_errno_pm();
unlink "errno.c" if -f "errno.c";
die "Cannot open errno.c";
if ($^O eq 'NetWare') {
- print CPPI "#include <nwerrno.h>\n";
+ print CPPI "#include <nwerrno.h>\n";
} else {
- print CPPI "#include <errno.h>\n";
+ print CPPI "#include <errno.h>\n";
+ if ($^O eq 'MSWin32') {
+ print CPPI "#define _WINSOCKAPI_\n"; # don't drag in everything
+ print CPPI "#include <winsock.h>\n";
+ }
}
close(CPPI);
die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})";
\$VERSION = "$VERSION";
+\$VERSION = eval \$VERSION;
\@ISA = qw(Exporter);
EDQ