diff options
Diffstat (limited to 'cpan/dist/Socket6/Makefile.PL')
| -rw-r--r-- | cpan/dist/Socket6/Makefile.PL | 74 |
1 files changed, 64 insertions, 10 deletions
diff --git a/cpan/dist/Socket6/Makefile.PL b/cpan/dist/Socket6/Makefile.PL index 591c2063..9547afc3 100644 --- a/cpan/dist/Socket6/Makefile.PL +++ b/cpan/dist/Socket6/Makefile.PL @@ -1,6 +1,6 @@ -# Copyright (C) 2000 Hajimu UMEMOTO <ume@mahoroba.org>. +# Copyright (C) 2000-2008 Hajimu UMEMOTO <ume@mahoroba.org>. # All rights reserved. -# +# # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: @@ -12,7 +12,7 @@ # 3. Neither the name of the project nor the names of its contributors # may be used to endorse or promote products derived from this software # without specific prior written permission. -# +# # THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE @@ -25,15 +25,20 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. -# $Id: Makefile.PL,v 1.3 2000/04/15 07:26:44 ume Exp $ +# $Id: Makefile.PL,v 1.8 2008/11/01 19:01:10 ume Exp $ use ExtUtils::MakeMaker; -my $path_perl = ($^X =~ m!^/!o) ? $^X : `which $^X`; -my $cmd = './configure'; -$cmd .= " --with-perl=$path_perl" if ($path_perl); -system($cmd); -require 'config.pl'; +if ($^O eq 'MSWin32') { + configure_mswin32(); +} else { + my $path_perl = ($^X =~ m!^/!o) ? $^X : `which $^X`; + my $cmd = './configure'; + $cmd .= " --with-perl=$path_perl" if ($path_perl); + system($cmd); +} + +require './config.pl'; WriteMakefile( NAME => 'Socket6', @@ -41,7 +46,56 @@ WriteMakefile( MAN3PODS => {}, # Pods will be built by installman. XSPROTOARG => '-noprototypes', # XXX remove later? PM => {'Socket6.pm' => '$(INST_LIBDIR)/Socket6.pm'}, - CC => "${cc}", + CONFIGURE => sub { { CC => "${cc}" } }, LIBS => ["${libs}"], realclean => {FILES => 'config.cache config.h config.log config.pl config.status gailookup.pl'}, ); + +sub configure_mswin32 +{ + require Config; + + open(IN, '<config.pl.in') || die "Failed to open file 'config.pl.in' [$!]"; + open(OUT, '>config.pl') || die "Failed to open file 'config.pl' [$!]"; + + while (<IN>) { + if (/\$cc/) { + printf(OUT "\$cc = '%s';\n", $Config::Config{cc}); + } elsif (/\$libs/) { + printf(OUT "\$libs = 'ws2_32.lib';\n"); + } else { + print OUT; + } + } + + close(OUT) || die "Failed to close file 'config.pl' [$!]"; + close(IN) || die "Failed to close file 'config.pl.in' [$!]"; + + open(IN, '<config.h.in') || die "Failed to open file 'config.h.in' [$!]"; + open(OUT, '>config.h') || die "Failed to open file 'config.h' [$!]"; + + while (<IN>) { + if (/HAVE_PL_SV_UNDEF/) { + print(OUT "#define HAVE_PL_SV_UNDEF 1\n"); + } elsif (/HAVE_GETADDRINFO/) { + print(OUT "#define HAVE_GETADDRINFO 1\n"); + } elsif (/HAVE_GETNAMEINFO/) { + print(OUT "#define HAVE_GETNAMEINFO 1\n"); + } elsif (/HAVE_SOCKADDR_IN6_SIN6_SCOPE_ID/) { + print(OUT "#define HAVE_SOCKADDR_IN6_SIN6_SCOPE_ID 1\n"); + } elsif (/HAVE_INET_(PTON|NTOP)/) { + print(OUT "#if (NTDDI_VERSION >= NTDDI_LONGHORN)\n"); + print(OUT " #define HAVE_INET_$1 1\n"); + print(OUT "#else\n"); + print(OUT " #undef HAVE_INET_$1\n"); + print(OUT "#endif\n"); + } elsif (/HAVE_SOCKLEN_T/) { + print(OUT "#define HAVE_SOCKLEN_T 1\n"); + } else { + print OUT; + } + } + + close(OUT) || die "Failed to close file 'config.h' [$!]"; + close(IN) || die "Failed to close file 'config.h.in' [$!]"; +} |