perl paranoia about @INC
[users/heiko/exim.git] / src / util / ratelimit.pl
index d7fd43ab1b07d15ab1c96d9bd1eda096347be59f..e212fa2415ddf6500bbbbaf0cdb08515ba0b4ba4 100644 (file)
@@ -2,6 +2,8 @@
 
 use strict;
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
+
 sub usage () {
   print <<END;
 usage: ratelimit.pl [options] <period> <regex> <logfile>