diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/Unicode/UTF7.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Encode/Unicode/UTF7.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/Unicode/UTF7.pm b/Master/tlpkg/tlperl/lib/Encode/Unicode/UTF7.pm index ea9257b47b5..d5d86e2f903 100644 --- a/Master/tlpkg/tlperl/lib/Encode/Unicode/UTF7.pm +++ b/Master/tlpkg/tlperl/lib/Encode/Unicode/UTF7.pm @@ -1,13 +1,13 @@ # -# $Id: UTF7.pm,v 2.6 2012/08/05 23:08:49 dankogai Exp $ +# $Id: UTF7.pm,v 2.8 2013/09/14 07:51:59 dankogai Exp $ # package Encode::Unicode::UTF7; use strict; use warnings; no warnings 'redefine'; -use base qw(Encode::Encoding); +use parent qw(Encode::Encoding); __PACKAGE__->Define('UTF-7'); -our $VERSION = do { my @r = ( q$Revision: 2.6 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use MIME::Base64; use Encode; @@ -32,7 +32,7 @@ sub encode($$;$) { my ( $obj, $str, $chk ) = @_; my $len = length($str); pos($str) = 0; - my $bytes = ''; + my $bytes = substr($str, 0, 0); # to propagate taintedness while ( pos($str) < $len ) { if ( $str =~ /\G($re_asis+)/ogc ) { my $octets = $1; @@ -59,9 +59,10 @@ sub encode($$;$) { } sub decode($$;$) { + use re 'taint'; my ( $obj, $bytes, $chk ) = @_; my $len = length($bytes); - my $str = ""; + my $str = substr($bytes, 0, 0); # to propagate taintedness; pos($bytes) = 0; no warnings 'uninitialized'; while ( pos($bytes) < $len ) { |