X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=submit%2Fperl-ssleay.diff;h=bdf52140a5ebddcdf6bf0606f1e4e077e30690f3;hb=204f84eafd2659dd82b06feb7d182d4a15a44237;hp=1cd127753719b7b1750fb03ea4371a606fe69148;hpb=5db97f02c08e1252f4fca496831511928ce22b0a;p=moe.git

diff --git a/submit/perl-ssleay.diff b/submit/perl-ssleay.diff
index 1cd1277..bdf5214 100644
--- a/submit/perl-ssleay.diff
+++ b/submit/perl-ssleay.diff
@@ -10,30 +10,20 @@ 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;
  	return (wantarray ? (undef, $errs) : undef) if $errs;
      }
      return wantarray ? ($written, $errs) : $written;
-@@ -1690,7 +1691,6 @@
- 	}
- 	$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;
-     }
-     return wantarray ? ($written, '') : $written;
- }
 --- /usr/lib/perl5/auto/Net/SSLeay/ssl_write_all.al.mj	2007-06-29 22:17:19.000000000 +0200
 +++ /usr/lib/perl5/auto/Net/SSLeay/ssl_write_all.al	2007-06-29 22:17:35.000000000 +0200
 @@ -26,9 +26,10 @@
  	}
  	$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;