From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 5 Jan 2000 06:56:05 +0000 (+0000)
Subject: cygwin support tweaks (from Eric Fifer <EFifer@sanwaint.com>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a9fdc5d26a453a78e950d4bdaa9da4ed9ede5af;p=p5sagit%2Fp5-mst-13.2.git

cygwin support tweaks (from Eric Fifer <EFifer@sanwaint.com>)

p4raw-id: //depot/perl@4755
---

diff --git a/Configure b/Configure
index 94fd519..475a8df 100755
--- a/Configure
+++ b/Configure
@@ -2358,6 +2358,9 @@ EOM
 		qnx) osname=qnx
 			osvers="$4"
 			;;
+		cygwin*) osname=cygwin
+			osvers="$3"
+			;;
 		$2) case "$osname" in
 			*isc*) ;;
 			*freebsd*) ;;
diff --git a/util.c b/util.c
index 17d94db..2ecb73a 100644
--- a/util.c
+++ b/util.c
@@ -1889,7 +1889,7 @@ Perl_my_setenv_init(char ***penviron)
 }
 
 void
-Perl_my_setenv(char *nam, char *val)
+Perl_my_setenv(pTHX_ char *nam, char *val)
 {
     /* You can not directly manipulate the environ[] array because
      * the routines do some additional work that syncs the Cygwin
diff --git a/utils/perlcc.PL b/utils/perlcc.PL
index 734b20a..24eb0b3 100644
--- a/utils/perlcc.PL
+++ b/utils/perlcc.PL
@@ -376,6 +376,8 @@ sub _ccharness
     }
 
     my $libs = _getSharedObjects($sourceprog);
+    @$libs = grep { !(/DynaLoader\.a$/ && ($dynaloader = $_)) } @$libs
+	if($^O =~ /cygwin/i);
 
     my $ccflags = $Config{ccflags};
     $ccflags .= ' -DUSEIMPORTLIB' if $Config{osname} =~ /cygwin/i;