Merge with git+ssh://git.ucw.cz/home/mj/GIT/eval.git

[eval.git] / submit / MO / Submit.pm

diff --git a/submit/MO/Submit.pm b/submit/MO/Submit.pm
index 554fda83c4168f4ceaf19e7b16b577b383b69e28..0aa165dfa84b9cac3740ad3f57becca5a49ad7e1 100644 (file)
--- a/submit/MO/Submit.pm
+++ b/submit/MO/Submit.pm
@@ -126,7 +126,7 @@ sub connect($) {
 sub request($$) {
        my ($self, $obj) = @_;
        my $sk = $self->{"sk"};
 sub request($$) {
        my ($self, $obj) = @_;
        my $sk = $self->{"sk"};

-       ## $SIG{'PIPE'} = 'ignore';
+       local $SIG{'PIPE'} = 'ignore';

        $obj->write($sk);
        print $sk "\n";
        $sk->flush();
        $obj->write($sk);
        print $sk "\n";
        $sk->flush();


@@ -152,6 +152,7 @@ sub reply($) {
 sub send_file($$$) {
        my ($self, $fh, $size) = @_;
        my $sk = $self->{"sk"};
 sub send_file($$$) {
        my ($self, $fh, $size) = @_;
        my $sk = $self->{"sk"};

+       local $SIG{'PIPE'} = 'ignore';

        while ($size) {
                my $l = ($size < 4096 ? $size : 4096);
                my $buf = "";
        while ($size) {
                my $l = ($size < 4096 ? $size : 4096);
                my $buf = "";