Improve M$ Windows compatibility

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index bf2d5ed30395899d488fa4f2315f190c930d71fd..9f4f3840242adaa38085bf34c7a01f815a7392ba 100644 (file)
--- 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);