Antoher fix to the patch.

diff --git a/submit/perl-ssleay.diff b/submit/perl-ssleay.diff
index c3f72760016e2d73e80398337d249bf719084cad..bdf52140a5ebddcdf6bf0606f1e4e077e30690f3 100644 (file)
--- 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';
        }
        $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;
        
        $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';
        }
        $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;
        
        $errs .= print_errs('SSL_write');
 +      $errs .= "SSL_write $$: 1 - $!\n" if $wrote < 0 && !$errs;