Lookups: dsearch subdir with leading "..". Bug 2994

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

diff --git a/src/util/ratelimit.pl b/src/util/ratelimit.pl
index d7fd43ab1b07d15ab1c96d9bd1eda096347be59f..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>