mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-25 12:15:32 +03:00
23 lines
825 B
Diff
23 lines
825 B
Diff
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};
|
|
}
|