X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=src%2Fsrc%2Fexiqsumm.src;h=99a304fefc359b2b4ee0ed9016b800646a33c568;hb=60272099eb6529d6d748c7dd04412b35c09f37e2;hp=fc5ad26bb56009e6f2484402f842221ec21dede6;hpb=44b2544ecbca17b3903dd56bf499b47063374a13;p=user%2Fhenk%2Fcode%2Fexim.git

diff --git a/src/src/exiqsumm.src b/src/src/exiqsumm.src
index fc5ad26bb..99a304fef 100644
--- a/src/src/exiqsumm.src
+++ b/src/src/exiqsumm.src
@@ -1,4 +1,4 @@
-#! PERL_COMMAND -w
+#! PERL_COMMAND
 
 # Mail Queue Summary
 # Christoph Lameter, 21 May 1997
@@ -27,7 +27,7 @@
 #   typo. Fix provided by Chris Liddiard.
 # November 2006 by Jori Hamalainen
 #   Added feature to separate frozen and bounced messages from queue
-#   Adedd feature to list queue per source - destination pair
+#   Added feature to list queue per source - destination pair
 #   Changed regexps to compile once to very minor speed optimization
 #   Short circuit for empty lines
 #
@@ -41,6 +41,9 @@
 
 # Slightly modified sub from eximstats
 
+use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
+
 sub print_volume_rounded {
 my($x) = pop @_;
 if ($x < 10000)