From 4d3d955f2791199b35704c3e9784dc99fd229696 Mon Sep 17 00:00:00 2001
From: Phil Pennock <pdp@exim.org>
Date: Fri, 10 Feb 2017 19:37:44 -0500
Subject: perl paranoia about @INC

---
 src/util/cramtest.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/util/cramtest.pl')

diff --git a/src/util/cramtest.pl b/src/util/cramtest.pl
index cb70eb404..48f989a0c 100755
--- a/src/util/cramtest.pl
+++ b/src/util/cramtest.pl
@@ -24,6 +24,8 @@
 #       Vadim Vygonets <vadik-exim@vygo.net>.  All rights reserved.
 # Public domain is OK with me.
 
+BEGIN { pop @INC if $INC[-1] eq '.' };
+
 use MIME::Base64;
 use Digest::MD5;
 
-- 
cgit v1.2.3