Avoid trying to send smtp repoonse for non-smtp input, on datafile close error

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

diff --git a/src/util/ratelimit.pl b/src/util/ratelimit.pl
index 1f08a9929b7101e80fcbab74270b8e01dec6c5f6..ce54fe6c31450734f6b3d276dc2fbe2f673187f9 100644 (file)
--- a/src/util/ratelimit.pl
+++ b/src/util/ratelimit.pl
@@ -1,7 +1,11 @@
 #!/usr/bin/perl -wT
 #!/usr/bin/perl -wT

+# Copyright (c) The Exim Maintainers 2022
+# SPDX-License-Identifier: GPL-2.0-or-later

 
 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 +28,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 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