projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Added BackupPC::Xfer::Protocol as a common class for each Xfer
[BackupPC.git]
/
lib
/
BackupPC
/
Attrib.pm
diff --git
a/lib/BackupPC/Attrib.pm
b/lib/BackupPC/Attrib.pm
index
2a76244
..
046cf87
100644
(file)
--- a/
lib/BackupPC/Attrib.pm
+++ b/
lib/BackupPC/Attrib.pm
@@
-12,7
+12,7
@@
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2001-200
3
Craig Barratt
+# Copyright (C) 2001-200
7
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
#
# 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.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-43,7
+43,7
@@
use strict;
use Carp;
use File::Path;
use BackupPC::FileZIO;
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 );
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);
}
}
(my $fileName, $data) = unpack("a$len a*", $data);
+
from_to($fileName, $a->{charsetLegacy}, "utf8")
if ( $a->{charsetLegacy} ne "" );
my $nFldsW = @FldsUnixW;
from_to($fileName, $a->{charsetLegacy}, "utf8")
if ( $a->{charsetLegacy} ne "" );
my $nFldsW = @FldsUnixW;