Item9807: Generalize Util::getPerlLocation to extract from any file.

along with unit test.  Should be safe for 1.1.1

git-svn-id: http://svn.foswiki.org/trunk@9535 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

UnitTestContrib/test/unit/ConfigureTests.pm

@@ -802,6 +802,13 @@ sub test_Util_getPerlLocation {
         "C:\\Program Files\\Strawberry\\bin\\perl.exe"
     );
 
+    _makefile( "$tempdir", "loctestf", <<'DONE');
+#! /a/b/perl
+Test file data
+DONE
+
+    $this->assert_str_equals( '/a/b/perl', Foswiki::Configure::Util::getPerlLocation("$tempdir/loctestf"));
+
     $Foswiki::cfg{ScriptSuffix} = ".pl";
     _doLocationTest( $this, $tempdir, "#!/usr/bin/perl -wT ", "/usr/bin/perl" );
 

core/lib/Foswiki/Configure/Util.pm

@@ -533,16 +533,21 @@ sub listDir {
 
 ---++ StaticMethod getPerlLocation( )
 This routine will read in the first line of the bin/configure 
-script and recover the location of the perl interpreter.
+script and recover the location of the perl interpreter. 
+
+Optional parameter is file used to retrieve the shebang.  If not 
+specified, defaults to the configure script
 
 =cut
 
 sub getPerlLocation {
 
+    my $file = shift || "$Foswiki::cfg{ScriptDir}/configure$Foswiki::cfg{ScriptSuffix}";
+
     local $/ = "\n";
     open( my $fh, '<',
-        "$Foswiki::cfg{ScriptDir}/configure$Foswiki::cfg{ScriptSuffix}" )
-      || return '';
+        "$file" )
+      || return "";
     my $Shebang = <$fh>;
     chomp $Shebang;
     $Shebang =~ s/^#\!\s*(.*?)\s?(:?\s-.*)?$/$1/;