p4raw-id: //depot/perl@4755
qnx) osname=qnx
osvers="$4"
;;
+ cygwin*) osname=cygwin
+ osvers="$3"
+ ;;
$2) case "$osname" in
*isc*) ;;
*freebsd*) ;;
}
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
}
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;