Taint: check on supplied buffer vs. list when extracting elements

[exim.git] / src / src / exinext.src

diff --git a/src/src/exinext.src b/src/src/exinext.src
index f66b317f534773165498916d84a068ff7e040e5a..91380186747240b0c31d0bfa6a5e992970c68216 100644 (file)
--- a/src/src/exinext.src
+++ b/src/src/exinext.src
@@ -1,5 +1,4 @@
 #! /bin/sh
-# $Cambridge: exim/src/src/exinext.src,v 1.5 2009/11/16 19:50:36 nm4 Exp $
 
 # Copyright (c) University of Cambridge, 1995 - 2007
 # See the file NOTICE for conditions of use and distribution.
@@ -26,6 +25,13 @@ config=
 eximmacdef=
 exim_path=
 
+if test "x$1" = x--version
+then
+    echo "`basename $0`: $0"
+    echo "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION"
+    exit 0
+fi
+
 if expr -- $1 : '\-' >/dev/null ; then
   while expr -- $1 : '\-' >/dev/null ; do
     if [ "$1" = "-C" ]; then
@@ -116,6 +122,9 @@ fi
 
 perl - $exim_path "$eximmacdef" $argone $spool_directory $qualify_domain $config <<'End'
 
+  # We don't import anything, but guard against future changes which do
+  BEGIN { pop @INC if $INC[-1] eq '.' };
+
   # Name the arguments
 
   $exim = $ARGV[0];