]> granicus.if.org Git - curl/commitdiff
checksrc.bat: Fixed cannot find perl if installed but not in path
authorSteve Holme <steve_holme@hotmail.com>
Sat, 5 Mar 2016 21:03:40 +0000 (21:03 +0000)
committerSteve Holme <steve_holme@hotmail.com>
Sat, 5 Mar 2016 21:40:53 +0000 (21:40 +0000)
projects/checksrc.bat

index 39291f654a71cc5290b543d4c333e3120b1aaeed..5359e5ff069cf54891e8f6e51725b21e7f6a67c2 100644 (file)
@@ -6,7 +6,7 @@ rem *                             / __| | | | |_) | |
 rem *                            | (__| |_| |  _ <| |___
 rem *                             \___|\___/|_| \_\_____|
 rem *
-rem * Copyright (C) 2014 - 2015, Steve Holme, <steve_holme@hotmail.com>.
+rem * Copyright (C) 2014 - 2016, Steve Holme, <steve_holme@hotmail.com>.
 rem *
 rem * This software is licensed as described in the file COPYING, which
 rem * you should have received as part of this distribution. The terms
@@ -48,11 +48,18 @@ rem ***************************************************************************
   shift & goto parseArgs
 
 :prerequisites
-  rem Check we have Perl installed
+  rem Check we have Perl in our path
   echo %PATH% | findstr /I /C:"\Perl" 1>nul
   if errorlevel 1 (
-    if not exist "%SystemDrive%\Perl" (
-      if not exist "%SystemDrive%\Perl64" goto noperl
+    rem It isn't so check we have it installed and set the path if it is
+    if exist "%SystemDrive%\Perl" (
+      set "PATH=%PATH%;%SystemDrive%\Perl\bin"
+    ) else (
+      if exist "%SystemDrive%\Perl64" (
+        set "PATH=%SystemDrive%\Perl64\bin;%PATH%"
+      ) else (
+        goto noperl
+      )
     )
   )