← Back to branch summary

~ubuntu-branches/ubuntu/wily/backuppc/wily

« back to all changes in this revision

Viewing changes to lib/BackupPC/Xfer/Tar.pm

  • Committer: Dave Walker (Daviey)
  • Author(s): Allison Randal
  • Date: 2011-09-19 12:04:17 UTC
  • mfrom: (33.1.1 bug-852484)
  • Revision ID: davewalker@ubuntu.com-20110919120417-2z1it0nm3rxgdowd
Tags: 3.2.1-1ubuntu1
http://bugs.debian.org/641450
http://bugs.debian.org/630777
https://launchpad.net/bugs/852484
* Merge from debian unstable. (LP: #852484) Remaining changes:
  - debian/backup.init, debian/rules, debian/postinst: Do not call init
    script on shutdown and reboot (TearDown) (Debian #488660)
  - debian/control: Add dependency for libsocket6-perl.
  - debian/control: Drop build dependency to 'par2', it's in universe.
  - configure.pl: Do not test for par2 being available at build time
  - debian/control: depend on default-mta | mail-transport-agent, instead of
    enumerating a long list of alternative MTAs.
  - debian/rules: installing setuid wrapper with setuid bit set, and no
    permissions granted to other (mode 4750)
* New upstream release. Closes: #641450
* urgency set to high because of a security fix
* Non-maintainer upload.
* Use inetutils-ping as an alternative to iputils-ping. Closes: #630777

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/BackupPC/Xfer/Tar.pm
29
29
#
30
30
#========================================================================
31
31
#
32
 
# Version 3.2.0, released 31 Jul 2010.
 
32
# Version 3.2.1, released 24 Apr 2011.
33
33
#
34
34
# See http://backuppc.sourceforge.net.
35
35
#
71
71
        $bpc->backupFileConfFix($conf, "TarShareName");
72
72
 
73
73
        if ( defined($conf->{BackupFilesExclude}{$t->{shareName}}) ) {
74
 
            foreach my $file ( @{$conf->{BackupFilesExclude}{$t->{shareName}}} )
75
 
            {
 
74
            foreach my $file2 ( @{$conf->{BackupFilesExclude}{$t->{shareName}}} ) {
 
75
                my $file = $file2;
76
76
                $file = "./$2" if ( $file =~ m{^(\./+|/+)(.*)}s );
77
77
                $file = encode($conf->{ClientCharset}, $file)
78
78
                            if ( $conf->{ClientCharset} ne "" );
80
80
            }
81
81
        }
82
82
        if ( defined($conf->{BackupFilesOnly}{$t->{shareName}}) ) {
83
 
            foreach my $file ( @{$conf->{BackupFilesOnly}{$t->{shareName}}} ) {
 
83
            foreach my $file2 ( @{$conf->{BackupFilesOnly}{$t->{shareName}}} ) {
 
84
                my $file = $file2;
84
85
                $file = $2 if ( $file =~ m{^(\./+|/+)(.*)}s );
85
86
                $file = "./$file";
86
87
                $file = encode($conf->{ClientCharset}, $file)