diff --git a/BackupPC-3.3.1-perl_defined_at_deprecation.patch b/BackupPC-3.3.1-perl_defined_at_deprecation.patch
new file mode 100644
index 0000000..afc71c2
--- /dev/null
+++ b/BackupPC-3.3.1-perl_defined_at_deprecation.patch
@@ -0,0 +1,11 @@
+--- BackupPC-3.3.1/lib/BackupPC/CGI/Browse.pm.orig	2016-07-15 10:32:24.007070271 +0200
++++ BackupPC-3.3.1/lib/BackupPC/CGI/Browse.pm	2016-07-15 10:33:00.920213213 +0200
+@@ -65,7 +65,7 @@
+     #
+     # 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};
+     }
diff --git a/BackupPC.spec b/BackupPC.spec
index 4878eb1..8310fe8 100644
--- a/BackupPC.spec
+++ b/BackupPC.spec
@@ -15,7 +15,7 @@
 
 Name:           BackupPC
 Version:        3.3.1
-Release:        4%{?dist}
+Release:        5%{?dist}
 Summary:        High-performance backup system
 Group:          Applications/System
 License:        GPLv2+
@@ -26,6 +26,7 @@ Patch0:         BackupPC-3.2.1-locatedb.patch
 Patch1:         BackupPC-3.2.1-rundir.patch
 Patch2:         BackupPC-3.2.1-piddir.patch
 Patch3:         BackupPC-3.3.0-fix-shadow-access.patch
+Patch4:         BackupPC-3.3.1-perl_defined_at_deprecation.patch
 Source1:        BackupPC.htaccess
 Source2:        BackupPC.logrotate
 Source3:        BackupPC-README.fedora
@@ -93,6 +94,7 @@ configurable and easy to install and maintain.
 %patch1 -p1 -b .rundir
 %patch2 -p1 -b .piddir
 %patch3 -p1 -b .shadow-access
+%patch4 -p1 -b .Browse.pm
 
 sed -i "s|\"backuppc\"|\"$LOGNAME\"|g" configure.pl
 for f in ChangeLog doc/BackupPC.pod doc/BackupPC.html; do
@@ -369,6 +371,9 @@ fi
 %endif
 
 %changelog
+* Fri Jul 15 2016 Benjamin Lefoul <lef@fedoraproject.org> - 3.3.1-5
+- Deprecation of defined(@array) in perl
+
 * Wed Jun 29 2016 Benjamin Lefoul <lef@fedoraproject.org> - 3.3.1-4
 - Support for systemd and tmpfiles for RHEL >= 7