Add Perl script required for ascertaining version of privoxy code checked out

diff --git a/findversion.pl b/findversion.pl
new file mode 100644 (file)
index 0000000..82f8862
--- /dev/null
+++ b/findversion.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+while(<>)
+  {
+  # Look for the first pattern that looks like a version. This must be
+  # the most recent version.
+  if(/Version\s(\d+\.\d+(?:\.\d+))/)
+    {
+    print $1;
+    exit(0);
+    }
+  }
+
+exit(1);