X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FAttrib.pm;h=046cf870e85746ee887b235fa89fc76794b0c360;hp=2a76244f2ef9353b79d7991f3353542b9beb4393;hb=fda25dc88a63ccac1c80efa2e4994bf0725ca9b7;hpb=16755c17628b28a58d75663d7541036344826961

diff --git a/lib/BackupPC/Attrib.pm b/lib/BackupPC/Attrib.pm
index 2a76244..046cf87 100644
--- a/lib/BackupPC/Attrib.pm
+++ b/lib/BackupPC/Attrib.pm
@@ -12,7 +12,7 @@
 #   Craig Barratt  <cbarratt@users.sourceforge.net>
 #
 # COPYRIGHT
-#   Copyright (C) 2001-2003  Craig Barratt
+#   Copyright (C) 2001-2007  Craig Barratt
 #
 #   This program is free software; you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 #
 #========================================================================
 #
-# Version 3.0.0, released 28 Jan 2007.
+# Version 3.1.0, released 25 Nov 2007.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -43,7 +43,7 @@ use strict;
 use Carp;
 use File::Path;
 use BackupPC::FileZIO;
-use Encode;
+use Encode qw/from_to/;
 require Exporter;
 
 use vars qw( @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
@@ -243,6 +243,7 @@ sub read
 	    }
 	}
 	(my $fileName, $data) = unpack("a$len a*", $data);
+
         from_to($fileName, $a->{charsetLegacy}, "utf8")
                         if ( $a->{charsetLegacy} ne "" );
 	my $nFldsW = @FldsUnixW;