| Subject: | Encode/decode trash $_ |
Hi,
encode_rfc3548, decode_rfc3548, encode_09AV and decode_09AV trash $_.
This is fixed with the attached patch.
thanks.
diff -Nur a/MIME-Base32-1.01/Base32.pm b/MIME-Base32-1.01/Base32.pm
--- a/MIME-Base32-1.01/Base32.pm 2003-12-11 07:21:55.000000000 -0600
+++ b/MIME-Base32-1.01/Base32.pm 2005-12-15 15:24:00.477738664 -0600
@@ -33,7 +33,7 @@
#
- $_ = shift @_;
+ local $_ = shift;
my( $buffer, $l, $e );
$_=unpack('B*', $_);
@@ -51,7 +51,7 @@
}
sub decode_rfc3548{
- $_ = shift;
+ local $_ = shift;
my( $l );
tr|A-Z2-7|\0-\37|;
@@ -74,7 +74,7 @@
#
- $_ = shift @_;
+ local $_ = shift @_;
my( $buffer, $l, $e );
$_=unpack('B*', $_);
@@ -92,7 +92,7 @@
}
sub decode_09AV{
- $_ = shift;
+ local $_ = shift;
my( $l );
tr|0-9A-V|\0-\37|;