← Back to branch summary

~allison/ubuntu/oneiric/backuppc/bug-852484

« back to all changes in this revision

Viewing changes to lib/BackupPC/Attrib.pm

  • Committer: Allison Randal
  • Date: 2011-09-19 00:55:51 UTC
  • mfrom: (0.3.14 sid)
  • Revision ID: allison@canonical.com-20110919005551-04syp2q432i6upcd
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/Attrib.pm
30
30
#
31
31
#========================================================================
32
32
#
33
 
# Version 3.2.0, released 31 Jul 2010.
 
33
# Version 3.2.1, released 24 Apr 2011.
34
34
#
35
35
# See http://backuppc.sourceforge.net.
36
36
#
297
297
                    = $a->{files}{$file}{size} % (4096 * 1024 * 1024);
298
298
        $a->{files}{$file}{sizeDiv4GB}
299
299
                    = int($a->{files}{$file}{size} / (4096 * 1024 * 1024));
300
 
        $data .= pack("w a* w$nFldsW N$nFldsN", length($file), $file,
301
 
                               @{$a->{files}{$file}}{@FldsUnixW},
302
 
                               @{$a->{files}{$file}}{@FldsUnixN},
303
 
                    );
 
300
        eval {
 
301
            $data .= pack("w a* w$nFldsW N$nFldsN", length($file), $file,
 
302
                                   @{$a->{files}{$file}}{@FldsUnixW},
 
303
                                   @{$a->{files}{$file}}{@FldsUnixN},
 
304
                        );
 
305
        };
 
306
        if ( $@ ) {
 
307
            $a->{_errStr} = "Can't pack attr for $file: " . Dumper($a->{files}{$file});
 
308
        }
304
309
    }
305
310
    return $data;
306
311
}