cygwin support tweaks (from Eric Fifer <EFifer@sanwaint.com>)
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 5 Jan 2000 06:56:05 +0000 (06:56 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 5 Jan 2000 06:56:05 +0000 (06:56 +0000)
p4raw-id: //depot/perl@4755

Configure
util.c
utils/perlcc.PL

index 94fd519..475a8df 100755 (executable)
--- 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 (file)
--- 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
index 734b20a..24eb0b3 100644 (file)
@@ -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;