X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=test%2Fpatchexim;h=9659ba133cecd443e3ef5ac101d7dc544c3f5979;hb=fbc84902d9de6b508d3ea6a4f891894212ac98e9;hp=3052b5dace1875914e63fd70700d5999f4b67774;hpb=026d45f59bc9c3f767217b75349c0479d237739f;p=exim.git

diff --git a/test/patchexim b/test/patchexim
index 3052b5dac..9659ba133 100755
--- a/test/patchexim
+++ b/test/patchexim
@@ -1,4 +1,7 @@
-#! /usr/bin/perl -w
+#! /usr/bin/env perl
+
+use strict;
+use warnings;
 
 ###############################################################################
 # This is an auxiliary script that is part of the Exim test suite. It must be #
@@ -10,8 +13,8 @@
 # be copied. The script must be run in the correct current directory.         #
 ###############################################################################
 
-open(IN, "$ARGV[0]") || die "** Failed to open $ARGV[0]: $!\n";
-open(OUT, ">eximdir/exim") || die "** Failed to open eximdir/exim: $!\n";
+open(IN, $ARGV[0]) || die "** Failed to open $ARGV[0]: $!\n";
+open(OUT, '>eximdir/exim') || die "** Failed to open eximdir/exim: $!\n";
 
 while(<IN>)
   {
@@ -23,6 +26,6 @@ while(<IN>)
 close(IN);
 close(OUT);
 
-chmod 04755, "eximdir/exim";
+chmod 04755, 'eximdir/exim';
 
 # End of patchexim script