diff options
| author | Abigail <abigail@abigail.be> | 2012-03-12 21:47:00 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2012-03-12 21:47:00 +0100 |
| commit | c06ee8c824f270b42cb440453df0e44858492aed (patch) | |
| tree | 923111a6277c63d4a063c4d8af3609d7da36fd72 /cpan/Archive-Tar/lib | |
| parent | dc16b9e468c516c95140dc2b6eac778872c79239 (diff) | |
| download | perl-c06ee8c824f270b42cb440453df0e44858492aed.tar.gz | |
Upgrade cpan/Archive-Tar to 1.84
Diffstat (limited to 'cpan/Archive-Tar/lib')
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar.pm | 8 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 |
3 files changed, 9 insertions, 3 deletions
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index 4ed3ae0386..c57f56b91a 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar.pm @@ -31,7 +31,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD $DEBUG = 0; $WARN = 1; $FOLLOW_SYMLINK = 0; -$VERSION = "1.82"; +$VERSION = "1.84"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; @@ -1451,6 +1451,12 @@ sub add_files { next; } + eval { + if( utf8::is_utf8( $file )) { + utf8::encode( $file ); + } + }; + unless( -e $file || -l $file ) { $self->_error( qq[No such file: '$file'] ); next; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index 1bea5ce12d..b01e2266bb 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm @@ -3,7 +3,7 @@ package Archive::Tar::Constant; BEGIN { require Exporter; - $VERSION = '1.82'; + $VERSION = '1.84'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/cpan/Archive-Tar/lib/Archive/Tar/File.pm index 9067de1086..8607caa71a 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm @@ -13,7 +13,7 @@ use Archive::Tar::Constant; use vars qw[@ISA $VERSION]; #@ISA = qw[Archive::Tar]; -$VERSION = '1.82'; +$VERSION = '1.84'; ### set value to 1 to oct() it during the unpack ### |