Avoid using "-w" option in perl script shebang lines, being incompatible with "env...

[exim.git] / src / src / exiqsumm.src

diff --git a/src/src/exiqsumm.src b/src/src/exiqsumm.src
index 7d2a933f6fc08be30141730ddbc9ef7bed3b1e34..c8b522ef503bd0a97e8bab79e35ac12d2d4682fe 100644 (file)
--- 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
@@ -41,6 +41,8 @@
 
 # Slightly modified sub from eximstats
 
+use warnings;
+
 sub print_volume_rounded {
 my($x) = pop @_;
 if ($x < 10000)