This diff fixes a warning that I have every now and then:
Character in 'C' format wrapped in pack at /usr/local/bin/pflogsumm line
1323, <> line 224944.
ok ?
Cheers
Giovanni
Index: Makefile
===================================================================
RCS file: /cvs/ports/mail/pflogsumm/Makefile,v
retrieving revision 1.7
diff -u -p -r1.7 Makefile
--- Makefile 17 Sep 2008 06:49:25 -0000 1.7
+++ Makefile 29 Jan 2010 15:05:04 -0000
@@ -3,6 +3,7 @@
COMMENT= Postfix log entry summarizer
DISTNAME= pflogsumm-1.1.2
+PKGNAME= ${DISTNAME}p0
CATEGORIES= mail
MASTER_SITES+= http://jimsun.linxnet.com/downloads/
Index: patches/patch-pflogsumm_pl
===================================================================
RCS file: /cvs/ports/mail/pflogsumm/patches/patch-pflogsumm_pl,v
retrieving revision 1.5
diff -u -p -r1.5 patch-pflogsumm_pl
--- patches/patch-pflogsumm_pl 17 Sep 2008 06:49:25 -0000 1.5
+++ patches/patch-pflogsumm_pl 29 Jan 2010 15:05:04 -0000
@@ -1,5 +1,5 @@
--- pflogsumm.pl.orig Sun Jun 29 15:46:01 2008
-+++ pflogsumm.pl Fri Sep 12 19:09:05 2008
++++ pflogsumm.pl Fri Jan 29 16:04:59 2010
@@ -4,13 +4,13 @@ eval 'exec perl -S $0 "$@"'
=head1 NAME
@@ -62,3 +62,13 @@
$usageMsg =
"usage: $progName -[eq] [-d <today|yesterday>] [-h <cnt>] [-u <cnt>]
[--verp_mung[=<n>]] [--verbose_msg_detail] [--iso_date_time]
+@@ -1320,7 +1320,8 @@ sub normalize_host {
+
+ if((my @octets = ($norm1 =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/o)) == 4) {
+ # Dotted-quad IP address
+- return(pack('C4', @octets));
++ # Fix "Character in 'C' format wrapped in pack" warning
++ return(pack('U4', @octets));
+ } else {
+ # Possibly hostname or [email protected]
+ return(join( '', map { lc $_ } reverse split /[...@]/, $norm1 ));
