X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=9f4f3840242adaa38085bf34c7a01f815a7392ba;hb=8e14149148baba63ce5ae2b95aacda8ab6dd0d87;hp=bf2d5ed30395899d488fa4f2315f190c930d71fd;hpb=96f67f30b496aafcb4276f9fe9cf0fa9f572318b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index bf2d5ed3..9f4f3840 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1234,7 +1234,7 @@ sub spawn_cmd
 	my $fc = DXSubprocess->new;
 
 	# just behave normally if something has set the "one-shot" _nospawn in the channel
-	if ($self->{_nospawn}) {
+	if ($self->{_nospawn} || $main::is_win == 1) {
 		eval { @out = $cmdref->(@$args); };
 		if ($@) {
 			DXDebug::dbgprintring(25);