From b009dc7b5a238615c4c7d48af7be423c813db763 Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Fri, 2 Nov 2012 17:18:30 -0400
Subject: [PATCH] testenvironment does not check for correct perl version 
 (#12377) add verbiage about requiring a post Apollo era perl if such a perl
 is detected

---
 docs/changelog/8.x.x.txt | 1 +
 sbin/testEnvironment.pl  | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/docs/changelog/8.x.x.txt b/docs/changelog/8.x.x.txt
index 020f46ea0..f61522763 100644
--- a/docs/changelog/8.x.x.txt
+++ b/docs/changelog/8.x.x.txt
@@ -1,4 +1,5 @@
 8.0.1
+ - #12377 - add verbiage about requiring a post Apollo era perl if such a perl is detected
 
 8.0.0
  - #10012 - larger meta data values for multi-value fields
diff --git a/sbin/testEnvironment.pl b/sbin/testEnvironment.pl
index ed1d23e8b..d3352bdeb 100755
--- a/sbin/testEnvironment.pl
+++ b/sbin/testEnvironment.pl
@@ -16,6 +16,15 @@ use File::Spec;
 
 my $webguiRoot;
 BEGIN {
+    if( $] < 5.010 ) {
+        print <<EOF;
+WebGUI8 requires Perl 5.10.1 or later.  Please upgrade your system perl,
+install a newer perl in /usr/local, or build one with the 'perlbrew'
+utility.  Perl 5.10.0 has serious Unicode bugs that will corrupt 
+Unicode data.  5.16.x or 5.14.x should work fine.
+EOF
+        exit 1;
+    }
     $webguiRoot = File::Spec->rel2abs(File::Spec->catdir(File::Basename::dirname(__FILE__), File::Spec->updir));
     unshift @INC, File::Spec->catdir($webguiRoot, 'lib');
 }