Portable shells: revert error checking syntax, use print instead of printf

The print avoids the need to escape any characters.

Author: shawnlaffan

share/portable/portableshell.bat

@@ -34,8 +34,8 @@ echo  Welcome to Strawberry Perl Portable Edition!
 echo  * URL - https://www.strawberryperl.com/
 echo  * See README.TXT for more info
 echo ----------------------------------------------
-perl -MConfig -e "printf("""Perl executable: %%s\nPerl version   : %%vd / $Config{archname}\n\n""", $^X, $^V)" 2>nul
-if %ERRORLEVEL% == "1" echo FATAL ERROR: 'perl' does not work; check if your strawberry pack is complete!
+perl -MConfig -e "print(qq{Perl executable: $^X\nPerl version   : $^V / $Config{archname}\n\n})" 2>nul
+if ERRORLEVEL==1 echo FATAL ERROR: 'perl' does not work; check if your strawberry pack is complete!
 
 cmd /K
 

share/portable/portableshell.pdl.bat

@@ -41,8 +41,8 @@ echo           or if previous fails:    ppm PDL::Any::Module
 echo  * or you can use dev tools like:  gcc, g++, gfortran, gmake
 echo  * see README.TXT for more info
 echo ----------------------------------------------
-perl -MConfig -MPDL -e "printf("""Perl executable: %%s\nPerl version   : %%vd / $Config{archname}\nPDL version    : %%s\n\n""", $^X, $^V, $PDL::VERSION)" 2>nul
-if %ERRORLEVEL% == "1" echo FATAL ERROR: 'perl' does not work; check if your strawberry pack is complete!
+perl -MConfig -MPDL -e "print(qq{Perl executable: $^X\nPerl version   : $^V / $Config{archname}\nPDL version    : $PDL::VERSION\n\n})" 2>nul
+if ERRORLEVEL==1 echo FATAL ERROR: 'perl' does not work; check if your strawberry pack is complete!
 
 cmd /K