diff options
Diffstat (limited to 'community/backuppc/remove-deprecated-perl-defined-at.patch')
| -rw-r--r-- | community/backuppc/remove-deprecated-perl-defined-at.patch | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/community/backuppc/remove-deprecated-perl-defined-at.patch b/community/backuppc/remove-deprecated-perl-defined-at.patch new file mode 100644 index 0000000000..471c767569 --- /dev/null +++ b/community/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}; + } |