fix(perl): Fixes for perl

Signed-off-by: dark0dave <dark0dave@mykolab.com>

Author: dark0dave

stratagems/ascension/resource/ar6005sr.bmp

@@ -53,11 +53,15 @@ DEFINE_ACTION_FUNCTION ~compile_ssl_to_bcs_core~ INT_VAR skip_bcs=0 STR_VAR scri
           END
           DELETE "%workspace%/ssl_out/%script%.baf"
           ACTION_IF ~%WEIDU_OS%~ STRING_COMPARE_CASE ~WIN32~ THEN BEGIN
-                OUTER_INNER_PATCH_SAVE scsargs "%full_loc%/%script%" BEGIN
-                     REPLACE_TEXTUALLY "\" "/"
-                END
-		AT_NOW ~chmod 755 %MOD_FOLDER%/%ssl_loc%/ssl.pl~
-                AT_NOW ~/usr/bin/perl %MOD_FOLDER%/%ssl_loc%/ssl.pl %scsargs% "%sslvariables%" -o %workspace%/ssl_out -l %ssllibrary% %workspace%/autolib %booleanstring%~ EXACT	  
+               OUTER_INNER_PATCH_SAVE scsargs "%full_loc%/%script%" BEGIN
+                  REPLACE_TEXTUALLY "\" "/"
+               END
+               LAF check_ini STR_VAR ini=Use_Perl_Natively RET value END
+               ACTION_IF value BEGIN
+                  AT_NOW ~perl %MOD_FOLDER%/%ssl_loc%/ssl.pl %scsargs% "%sslvariables%" -o %workspace%/ssl_out -l %ssllibrary% %workspace%/autolib %booleanstring%~ EXACT
+               END ELSE BEGIN
+                  AT_NOW ~/usr/bin/perl %MOD_FOLDER%/%ssl_loc%/ssl.pl %scsargs% "%sslvariables%" -o %workspace%/ssl_out -l %ssllibrary% %workspace%/autolib %booleanstring%~ EXACT
+               END
           END ELSE BEGIN
                 LAF check_ini STR_VAR ini=Use_Perl_Natively RET value END
                 ACTION_IF value BEGIN

stratagems/sfo/general/lib_general.tpa

@@ -95,7 +95,12 @@ BEGIN
 				REPLACE_TEXTUALLY EXACT_MATCH "\" "/"
 			END
 			AT_NOW ~chmod 755 %ssl_loc%/ssl.pl~
-			AT_NOW ~/usr/bin/perl %ssl_loc%/ssl.pl %scsargs% "%sslvariables%" -o %workspace%/ssl_out -l %ssllibrary% %data_loc%/autolib %booleanstring%~ EXACT	  
+			LAF check_ini STR_VAR ini=Use_Perl_Natively RET value END
+			ACTION_IF value BEGIN
+				AT_NOW ~perl %ssl_loc%/ssl.pl %scsargs% "%sslvariables%" -o %workspace%/ssl_out -l %ssllibrary% %data_loc%/autolib %booleanstring%~ EXACT
+			END ELSE BEGIN
+				AT_NOW ~/usr/bin/perl %ssl_loc%/ssl.pl %scsargs% "%sslvariables%" -o %workspace%/ssl_out -l %ssllibrary% %data_loc%/autolib %booleanstring%~ EXACT
+			END
 		END
 	END
 END

stratagems/sfo2e/lib_ssl.tph

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 my $scsline="";
 # my $defaultlibraryfile="scsii/ssl/library.slb";