SPDX: license tags (mostly by guesswork)

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

diff --git a/src/util/ratelimit.pl b/src/util/ratelimit.pl
index aaa14fcc14667678edf4b10d54934fbb98a5f8ff..2ceeebbfa6911c6458ae8e3a06d3cf668874c148 100644 (file)
--- a/src/util/ratelimit.pl
+++ b/src/util/ratelimit.pl
@@ -1,7 +1,10 @@
 #!/usr/bin/perl -wT
 #!/usr/bin/perl -wT

+# SPDX-License-Identifier: GPL-2.0-only

 
 use strict;
 
 
 use strict;
 

+BEGIN { pop @INC if $INC[-1] eq '.' };
+

 sub usage () {
   print <<END;
 usage: ratelimit.pl [options] <period> <regex> <logfile>
 sub usage () {
   print <<END;
 usage: ratelimit.pl [options] <period> <regex> <logfile>


@@ -24,7 +27,7 @@ options:
             whereas internally Exim computes sender rates to the
             accuracy of your computer's clock (typically 10ms).
 
             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
 
             Each line is matched against the regular expression.
             Lines that do not match are ignored. The regex may