perl paranoia about @INC

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

diff --git a/src/src/exiqsumm.src b/src/src/exiqsumm.src
index c8b522ef503bd0a97e8bab79e35ac12d2d4682fe..99a304fefc359b2b4ee0ed9016b800646a33c568 100644 (file)
--- a/src/src/exiqsumm.src
+++ b/src/src/exiqsumm.src
@@ -42,6 +42,7 @@
 # Slightly modified sub from eximstats
 
 use warnings;
+BEGIN { pop @INC if $INC[-1] eq '.' };
 
 sub print_volume_rounded {
 my($x) = pop @_;