Mail-IMAPClient-3.24.diff
changeset 0 feeeedd7fa60
equal deleted inserted replaced
-1:000000000000 0:feeeedd7fa60
       
     1 diff --git a/hs12/isync/Mail-IMAPClient-3.24/lib/Mail/IMAPClient.pm b/hs12/isync/Mail-IMAPClient-3.24/lib/Mail/IMAPClient.pm
       
     2 --- a/hs12/isync/Mail-IMAPClient-3.24/lib/Mail/IMAPClient.pm
       
     3 +++ b/hs12/isync/Mail-IMAPClient-3.24/lib/Mail/IMAPClient.pm
       
     4 @@ -1192,8 +1192,8 @@
       
     5  
       
     6      my $popped;
       
     7      $popped = pop @$ref    # (-: vi
       
     8 -      until ( $popped && $popped =~ /\)$CRLF$/o )    # (-: vi
       
     9 -      || !grep /\)$CRLF$/o, @$ref;
       
    10 +      until ( $popped && $popped =~ /^\)$CRLF$/o )    # (-: vi
       
    11 +      || !grep /^\)$CRLF$/o, @$ref;
       
    12  
       
    13      if ( $head =~ /BODY\[TEXT\]\s*$/i ) {            # Next line is a literal
       
    14          $string .= shift @$ref while @$ref;