[libimap-admin-perl] 06/07: Drop defined-array.patch, applied upstream

[Florian Schlichting]

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

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

commit 54a195a6954b930a673af2cbf5c9ada9b3cf52ba
Author: Florian Schlichting <fsfs at debian.org>
Date:   Sat Jul 16 22:12:57 2016 +0200

    Drop defined-array.patch, applied upstream
---
 debian/patches/defined-array.patch | 64 --------------------------------------
 debian/patches/series              |  1 -
 2 files changed, 65 deletions(-)

diff --git a/debian/patches/defined-array.patch b/debian/patches/defined-array.patch
deleted file mode 100644
index b59b5bb..0000000
--- a/debian/patches/defined-array.patch
+++ /dev/null
@@ -1,64 +0,0 @@
-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 cf5dc38..875d06a 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
 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