Security robustness stance: drop . from @inc

philpennock · Feb 15, 2017 · f7cf58f · f7cf58f
1 parent 0d3dedf
commit f7cf58f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/sieve-connect.pre.pl b/sieve-connect.pre.pl
@@ -30,6 +30,8 @@
 
 use warnings;
 use strict;
+# Good modern Perl practice and some of our features warrant this:
+BEGIN { @INC = grep {$_ ne '.'} @INC };
 
 # If you can't update /etc/services to contain an entry for 'sieve' and you're
 # not using 4190 (specified in RFC 5804) and you're not publishing an SRV