$OpenBSD: patch-lib_Encode_IMAPUTF7_pm,v 1.1.1.1 2009/01/25 23:02:40 simon Exp $

Fix for problem under Perl 5.10 found at
http://rt.cpan.org/Public/Bug/Display.html?id=40827

--- lib/Encode/IMAPUTF7.pm.orig	Sun Jan 25 23:45:28 2009
+++ lib/Encode/IMAPUTF7.pm	Sun Jan 25 23:46:20 2009
@@ -36,7 +36,8 @@ sub encode($$;$){
 	    if ($1 eq "&"){
 		$bytes .= "&-";
 	    }else{
-		my $base64 = encode_base64($e_utf16->encode($1), '');
+		my $s = $1;
+		my $base64 = encode_base64($e_utf16->encode($s), '');
 		$base64 =~ s/=+$//;
                 $base64 =~ s/\//,/g;
 		$bytes .= "&$base64-";
