diff options
| author | Jakub Jirutka <jakub@jirutka.cz> | 2016-12-04 14:24:45 +0100 |
|---|---|---|
| committer | Jakub Jirutka <jakub@jirutka.cz> | 2016-12-04 15:06:48 +0100 |
| commit | 2bbc4981c38a6a651251cd99af756c034d9f5de7 (patch) | |
| tree | ed0e674f5d99af3c6f865590275a07f5958eb36d /main/backuppc/remove-deprecated-perl-defined-at.patch | |
| parent | 2d4c75fe4f9782ba3d6904ca120fb9145ad2485c (diff) | |
| download | aports-2bbc4981c38a6a651251cd99af756c034d9f5de7.tar.bz2 aports-2bbc4981c38a6a651251cd99af756c034d9f5de7.tar.xz | |
main/backuppc: remove deprecated defined(@array)
Fixes http://bugs.alpinelinux.org/issues/6457
Diffstat (limited to 'main/backuppc/remove-deprecated-perl-defined-at.patch')
| -rw-r--r-- | main/backuppc/remove-deprecated-perl-defined-at.patch | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/main/backuppc/remove-deprecated-perl-defined-at.patch b/main/backuppc/remove-deprecated-perl-defined-at.patch new file mode 100644 index 0000000000..471c767569 --- /dev/null +++ b/main/backuppc/remove-deprecated-perl-defined-at.patch @@ -0,0 +1,23 @@ +From 1261ba6d7a7ba0c973f25b8a63987360a639e16c Mon Sep 17 00:00:00 2001 +From: Alexander Moisseev <moiseev@mezonplus.ru> +Date: Wed, 7 Jan 2015 15:11:49 +0300 +Subject: [PATCH] Browse.pm: - Remove deprecated defined(@array) perl5160delta: + http://perldoc.perl.org/perldiag.html#defined(@array)-is-deprecated + +--- + lib/BackupPC/CGI/Browse.pm | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/lib/BackupPC/CGI/Browse.pm b/lib/BackupPC/CGI/Browse.pm +index 7309955..fea400f 100644 +--- a/lib/BackupPC/CGI/Browse.pm ++++ b/lib/BackupPC/CGI/Browse.pm +@@ -65,7 +65,7 @@ sub action + # + # default to the newest backup + # +- if ( !defined($In{num}) && defined(@Backups) && @Backups > 0 ) { ++ if ( !defined($In{num}) && @Backups > 0 ) { + $i = @Backups - 1; + $num = $Backups[$i]{num}; + } |