DANE: Fix 2 messages from queue case

[users/heiko/exim.git] / src / src / convert4r4.src

diff --git a/src/src/convert4r4.src b/src/src/convert4r4.src
index fff4e478bc3f649222b24e6f3bde71b50ce8cb64..47987fc8f3cc50a2f6fa7c3c21af45c0f86cb9ef 100755 (executable)
--- a/src/src/convert4r4.src
+++ b/src/src/convert4r4.src
@@ -9,6 +9,18 @@
 use warnings;
 BEGIN { pop @INC if $INC[-1] eq '.' };
 
+use Getopt::Long;
+use File::Basename;
+
+GetOptions(
+    'version' => sub {
+        print basename($0) . ": $0\n",
+            "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
+            "perl(runtime): $^V\n";
+            exit 0;
+    },
+);
+
 # These are lists of main options which are abolished in Exim 4.
 # The first contains options that are used to construct new options.