Deprecated syntax used in perl libraries

[Simon Déziel]

Interacting starting BackupPC using the init script result in the following warnings to be emitted:

  * Starting backuppc...
 Use of qw(...) as parentheses is deprecated at /usr/share/backuppc/lib/BackupPC/Storage/Text.pm line 302.
 Use of qw(...) as parentheses is deprecated at /usr/share/backuppc/lib/BackupPC/Lib.pm line 1425.

This is easily fixed as done in Debian version 3.2.1-4. This means that right now, Quantal and Precise (maybe older) releases are affected by this.

# lsb_release -rd
Description: Ubuntu 12.04.2 LTS
Release: 12.04

# apt-cache policy backuppc
backuppc:
  Installed: 3.2.1-2ubuntu1.1
  Candidate: 3.2.1-2ubuntu1.1
  Version table:
 *** 3.2.1-2ubuntu1.1 0
        500 http://archive.ubuntu.com/ubuntu/ precise-updates/main amd64 Packages
        500 http://archive.ubuntu.com/ubuntu/ precise-security/main amd64 Packages
        100 /var/lib/dpkg/status
     3.2.1-2ubuntu1 0
        500 http://archive.ubuntu.com/ubuntu/ precise/main amd64 Packages

[Simon Déziel (sdeziel)]

If anyone is too lazy to apply those 2 patches, an easy way to correct it is with sed:

 sed -i 's/\(^[[:space:]]\+foreach my \$param\) \(qw(BackupFilesOnly BackupFilesExclude)\) {$/\1 (\2) {/' /usr/share/backuppc/lib/BackupPC/Lib.pm /usr/share/backuppc/lib/BackupPC/Storage/Text.pm