--- pflogsumm.pl.orig	Sat Mar 20 21:00:42 2010
+++ pflogsumm.pl	Tue Apr  6 09:04:29 2010
@@ -4,13 +4,13 @@ eval 'exec perl -S $0 "$@"'
 
 =head1 NAME
 
-pflogsumm.pl - Produce Postfix MTA logfile summary
+pflogsumm - Produce Postfix MTA logfile summary
 
 Copyright (C) 1998-2010 by James S. Seymour, Release 1.1.3.
 
 =head1 SYNOPSIS
 
-    pflogsumm.pl -[eq] [-d <today|yesterday>] [--detail <cnt>]
+    pflogsumm -[eq] [-d <today|yesterday>] [--detail <cnt>]
 	[--bounce_detail <cnt>] [--deferral_detail <cnt>]
 	[-h <cnt>] [-i|--ignore_case] [--iso_date_time] [--mailq]
 	[-m|--uucp_mung] [--no_bounce_detail] [--no_deferral_detail]
@@ -21,7 +21,7 @@ Copyright (C) 1998-2010 by James S. Seymour, Release 1
 	[-u <cnt>] [--verbose_msg_detail] [--verp_mung[=<n>]]
 	[--zero_fill] [file1 [filen]]
 
-    pflogsumm.pl -[help|version]
+    pflogsumm -[help|version]
 
     If no file(s) specified, reads from stdin.  Output is to stdout.
 
@@ -142,7 +142,7 @@ Copyright (C) 1998-2010 by James S. Seymour, Release 1
 		    The message may be delivered long-enough after the
 		    (last) qmgr log entry that the information is not in
 		    the log(s) processed by a particular run of
-		    pflogsumm.pl.  This throws off "Recipients by message
+		    pflogsumm.  This throws off "Recipients by message
 		    size" and the total for "bytes delivered." These are
 		    normally reported by pflogsumm as "Messages with no
 		    size data."
@@ -257,15 +257,15 @@ Copyright (C) 1998-2010 by James S. Seymour, Release 1
 
     Produce a report of previous day's activities:
 
-        pflogsumm.pl -d yesterday /var/log/maillog
+        pflogsumm -d yesterday /var/log/maillog
 
     A report of prior week's activities (after logs rotated):
 
-        pflogsumm.pl /var/log/maillog.0
+        pflogsumm /var/log/maillog.0
 
     What's happened so far today:
 
-        pflogsumm.pl -d today /var/log/maillog
+        pflogsumm -d today /var/log/maillog
 
     Crontab entry to generate a report of the previous day's activity
     at 10 minutes after midnight.
@@ -488,7 +488,7 @@ for (0 .. 23) {
     $smtpdPerHr[$_]  = [0,0,0];
 }
 
-$progName = "pflogsumm.pl";
+$progName = "pflogsumm";
 $usageMsg =
     "usage: $progName -[eq] [-d <today|yesterday>] [--detail <cnt>]
 	[--bounce_detail <cnt>] [--deferral_detail <cnt>]
@@ -1421,7 +1421,8 @@ sub normalize_host {
 
     if((my @octets = ($norm1 =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/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 user@dom.ain
 	return(join( '', map { lc $_ } reverse split /[.@]/, $norm1 ));
