Debugging: avoid expansion problem with foolish-length list output

[users/heiko/exim.git] / src / util / ratelimit.pl

diff --git a/src/util/ratelimit.pl b/src/util/ratelimit.pl
index aaa14fcc14667678edf4b10d54934fbb98a5f8ff..e212fa2415ddf6500bbbbaf0cdb08515ba0b4ba4 100644 (file)
--- a/src/util/ratelimit.pl
+++ b/src/util/ratelimit.pl
@@ -2,6 +2,8 @@
 
 use strict;
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
+
 sub usage () {
   print <<END;
 usage: ratelimit.pl [options] <period> <regex> <logfile>
@@ -24,7 +26,7 @@ options:
             whereas internally Exim computes sender rates to the
             accuracy of your computer's clock (typically 10ms).
 
-<regex>     The second argumetnis is a regular expression.
+<regex>     The second argument is a regular expression.
 
             Each line is matched against the regular expression.
             Lines that do not match are ignored. The regex may