X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=submit%2Fperl-ssleay.diff;h=bdf52140a5ebddcdf6bf0606f1e4e077e30690f3;hb=816ab051157a7f0e42a68f4202297db5699c3373;hp=c3f72760016e2d73e80398337d249bf719084cad;hpb=95aa3f5f1e10716999f7632b8a3f8f70c77478d5;p=moe.git diff --git a/submit/perl-ssleay.diff b/submit/perl-ssleay.diff index c3f7276..bdf5214 100644 --- a/submit/perl-ssleay.diff +++ b/submit/perl-ssleay.diff @@ -10,8 +10,7 @@ to broken connections to loop forever if SIGPIPE was blocked. } $vm = $trace>2 && $linux_debug ? (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; -- warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2; -+ warn " written so far $wrote:$written bytes (VM=$vm) brum\n" if $trace>2; + warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2; $errs .= print_errs('SSL_write'); + $errs .= "SSL_write $$: 1 - $!\n" if $wrote < 0 && !$errs; @@ -24,8 +23,7 @@ to broken connections to loop forever if SIGPIPE was blocked. } $vm = $trace>2 && $linux_debug ? (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; -- warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2; -+ warn " written so far $wrote:$written bytes (VM=$vm) brum\n" if $trace>2; + warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2; $errs .= print_errs('SSL_write'); + $errs .= "SSL_write $$: 1 - $!\n" if $wrote < 0 && !$errs;