[libimap-admin-perl] 04/05: Add patch to fix "defined(@array)" error in test script.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libimap-admin-perl.

commit 1bcf0bedb4d3f9a4621420343cb62b6cf1cb3643
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Jun 20 02:23:46 2015 +0200

    Add patch to fix "defined(@array)" error in test script.
    
    Closes: #789338
---
 debian/patches/defined-array.patch | 64 ++++++++++++++++++++++++++++++++++++++
 debian/patches/series              |  1 +
 2 files changed, 65 insertions(+)

diff --git a/debian/patches/defined-array.patch b/debian/patches/defined-array.patch
new file mode 100644
index 0000000..b59b5bb
--- /dev/null
+++ b/debian/patches/defined-array.patch
@@ -0,0 +1,64 @@
+Description: fix "Can't use 'defined(@array)'"
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=105388
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=105388
+Bug-Debian: https://bugs.debian.org/789338
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-06-20
+
+--- a/test.pl
++++ b/test.pl
+@@ -77,7 +77,7 @@
+ print "ok 2\n";
+ undef @list;
+ @list = $imap->list($testuser);
+-if (defined(@list)) {
++if (@list) {
+     print "ok 3: found [@list]\n";
+ } else {
+     print "not ok 3: $imap->{'Error'}\n";
+@@ -92,7 +92,7 @@
+     }
+     undef @quota;
+     @quota = $imap->get_quota($testuser);
+-    if (defined(@quota)) {
++    if (@quota) {
+ 	print "ok 5: quota was set (@quota)\n";
+ 	$err = $imap->set_quota($testuser, "none");
+ 	if ($err == 0) {
+@@ -114,7 +114,7 @@
+     } else {
+ 	undef @acl;
+ 	@acl = $imap->get_acl($testuser);
+-	if (!defined(@acl)) {
++	if (!@acl) {
+ 	    print "not ok 7: $imap->{'Error'}\n";
+ 	} else {
+ 	    print "ok 7: acl string [@acl]\n";
+@@ -147,7 +147,7 @@
+ 	$err = $imap->set_acl($subf, $login, "cd");
+ 	undef @acl;
+ 	@acl = $imap->get_acl($subf);
+-	if (!defined(@acl)) {
++	if (!@acl) {
+ 		print "test 10 acl failed $imap->{'Error'}\n";
+ 	} else {
+ 		print "  test 10 acl string [@acl] <- should match test 7\n";
+@@ -160,7 +160,7 @@
+ $what = $testuser.'.*';
+ undef @list;
+ @list = $imap->list($what);
+-if (!defined(@list)) {
++if (!@list) {
+     print "not ok 11 : sub folder wasn't really created\n";
+ } else {
+     if ($list[0] eq $subf) {
+@@ -178,7 +178,7 @@
+ 
+ undef @list;
+ @list = $imap->list($testuser);
+-if (!defined(@list)) {
++if (!@list) {
+ 	print "ok 13: $imap->{'Error'}\n";
+ } else {
+ 	print "not ok 13: found [@list]\n";
diff --git a/debian/patches/series b/debian/patches/series
index 875d06a..cf5dc38 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 no_interactive_tests.patch
+defined-array.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libimap-admin-perl.git