From f5e70f74b034ef79efd5c41d79aec2869dd1cf73 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@webgui-svn>
Date: Thu, 2 Feb 2006 14:38:37 +0000
Subject: [PATCH] Added an option to select a arbitrary perl install.

---
 sbin/testCodebase.pl | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/sbin/testCodebase.pl b/sbin/testCodebase.pl
index 4b9531108..78eca75f6 100644
--- a/sbin/testCodebase.pl
+++ b/sbin/testCodebase.pl
@@ -18,11 +18,13 @@ use Getopt::Long;
 my $configFile;
 my $help;
 my $verbose;
+my $perlBase;
 
 GetOptions(
 	'verbose'=>\$verbose,
 	'configFile=s'=>\$configFile,
-	'help'=>\$help
+	'perl-base=s'=>\$perlBase,
+	'help'=>\$help,
 	);
 
 my $helpmsg=<<STOP;
@@ -36,16 +38,22 @@ my $helpmsg=<<STOP;
 
 	--verbose		Turns on additional output.
 
+	--perl-base		The path of the perl installation you want to 
+				use. Defaults to the perl installation in your
+				PATH.
+
 STOP
 
 my $verboseFlag = "-v" if ($verbose);
 my $config = $ENV{WEBGUI_CONFIG};
 
+$perlBase .= '/bin/' if ($perlBase);
+
 if ( $configFile ) {
-	system("WEBGUI_CONFIG=".$configFile." prove ".$verboseFlag." -r ../t");
+	system("WEBGUI_CONFIG=".$configFile." ".$perlBase."prove ".$verboseFlag." -r ../t");
 	exit;
 } elsif ( defined @ENV{WEBGUI_CONFIG} ) {
-        system("prove ".$verboseFlag." -r ../t");
+        system($perlBase."prove ".$verboseFlag." -r ../t");
 	exit;
 } else {
 	print $helpmsg;