[pkgsrc/trunk]: pkgsrc/mail/qmqtool Fix "Cannot open %s as a filehandle: it i...

[schmonz <schmonz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/5fd9e6f2515f
branches:  trunk
changeset: 410499:5fd9e6f2515f
user:      schmonz <schmonz%pkgsrc.org@localhost>
date:      Thu Jan 23 15:55:04 2020 +0000

description:
Fix "Cannot open %s as a filehandle: it is already open as a dirhandle",
deprecated in Perl 5.10 and fatal since 5.28. Bump PKGREVISION.

diffstat:

 mail/qmqtool/Makefile         |   4 ++--
 mail/qmqtool/distinfo         |   4 ++--
 mail/qmqtool/patches/patch-aa |  31 +++++++++++++++++++++++++++++--
 3 files changed, 33 insertions(+), 6 deletions(-)

diffs (78 lines):

diff -r ece5bfdaf7b4 -r 5fd9e6f2515f mail/qmqtool/Makefile
--- a/mail/qmqtool/Makefile     Thu Jan 23 14:49:09 2020 +0000
+++ b/mail/qmqtool/Makefile     Thu Jan 23 15:55:04 2020 +0000
@@ -1,8 +1,8 @@
-# $NetBSD: Makefile,v 1.16 2019/08/11 13:21:41 wiz Exp $
+# $NetBSD: Makefile,v 1.17 2020/01/23 15:55:04 schmonz Exp $
 #
 
 DISTNAME=              qmqtool-1.15
-PKGREVISION=           2
+PKGREVISION=           3
 CATEGORIES=            mail
 MASTER_SITES=          ${HOMEPAGE}/files/
 EXTRACT_SUFX=          .tgz
diff -r ece5bfdaf7b4 -r 5fd9e6f2515f mail/qmqtool/distinfo
--- a/mail/qmqtool/distinfo     Thu Jan 23 14:49:09 2020 +0000
+++ b/mail/qmqtool/distinfo     Thu Jan 23 15:55:04 2020 +0000
@@ -1,8 +1,8 @@
-$NetBSD: distinfo,v 1.5 2017/04/04 08:27:56 schmonz Exp $
+$NetBSD: distinfo,v 1.6 2020/01/23 15:55:04 schmonz Exp $
 
 SHA1 (qmqtool-1.15.tgz) = 06e665852c3f2c98d351b3162bf34a48d03df1b2
 RMD160 (qmqtool-1.15.tgz) = 089f5584352c573308b09a29a92d5b1e42aa6640
 SHA512 (qmqtool-1.15.tgz) = 613499629c9a651636fb5146c6a0faf41b183dbd0aacdb48227811ebb84401a9916fb66a3157f2521c36bc8b4326f3524b2db32e7b2f23250acac6adc251d29f
 Size (qmqtool-1.15.tgz) = 25884 bytes
-SHA1 (patch-aa) = a214cea1fa1dccdb3f4f35bb7d41d79e0d20dc05
+SHA1 (patch-aa) = 36017a3751797fc2afbf89c2e4176da9defc7746
 SHA1 (patch-configure) = 90a0a3ade3591957c8b76546ed7e414d6a57c019
diff -r ece5bfdaf7b4 -r 5fd9e6f2515f mail/qmqtool/patches/patch-aa
--- a/mail/qmqtool/patches/patch-aa     Thu Jan 23 14:49:09 2020 +0000
+++ b/mail/qmqtool/patches/patch-aa     Thu Jan 23 15:55:04 2020 +0000
@@ -1,6 +1,9 @@
-$NetBSD: patch-aa,v 1.3 2017/04/04 08:27:56 schmonz Exp $
+$NetBSD: patch-aa,v 1.4 2020/01/23 15:55:05 schmonz Exp $
 
-Use pkgsrc-preferred tools.
+Use pkgsrc-preferred tools, users, and paths.
+Avoid 5.28-fatal "Cannot open %s as a filehandle: it is already open as
+a dirhandle".
+Fix spelling.
 
 --- src/qmqtool.orig   2016-06-11 16:26:52.000000000 +0000
 +++ src/qmqtool
@@ -59,6 +62,19 @@
      }
  }
  
+@@ -866,9 +870,9 @@ sub msgprop {
+             warn "cannot open ${qmail}/queue/intd/${file}: $!\n";
+         }
+     }else{
+-        if(open(S, "${qmail}/queue/info/${subdir}/${file}")){
+-            chop($es=<S>);
+-            close S;
++        if(open(QQISF, "${qmail}/queue/info/${subdir}/${file}")){
++            chop($es=<QQISF>);
++            close QQISF;
+             substr($es,0,1) = '';
+         }
+ 
 @@ -985,7 +989,7 @@ sub find_msgs_bystring {
      # using find|xargs grep is must faster than regex matching in perl (dunno why)
      # grep -r isnt portable, dunno if it's safe for huge file lists
@@ -68,3 +84,14 @@
      # do not count on grep's exit code, because:
      #  if a message is removed while grepping, exit code is 2
      while(<GREP>){
+@@ -1013,8 +1017,8 @@ sub syntax {
+     -B
+       b       Backup queue into ${qmail}/queue.backup/
+       r       Restore backup from ${qmail}/queue.backup/
+-    -c        check queue consitancy
+-    -r        repair queue (by deleting fragments) found by checking queue consistancy
++    -c        check queue consistency
++    -r        repair queue (by deleting fragments) found by checking queue consistency
+     -i        show how many messages are queued per ip address
+        -nN    pay attention to the Nth last smtp-hop
+     -S        show how many bytes are queued per ip address