Improved formatting of login tickets.

[eval.git] / submit / perl-ssleay.diff

diff --git a/submit/perl-ssleay.diff b/submit/perl-ssleay.diff
index 1cd127753719b7b1750fb03ea4371a606fe69148..bdf52140a5ebddcdf6bf0606f1e4e077e30690f3 100644 (file)
--- 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;