admin: improve perl detection

Signed-off-by: Varun Patil <[email protected]>
pulsejet · Sep 3, 2023 · 50dfffc · 50dfffc
1 parent 134e0f3
commit 50dfffc
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Controller/AdminController.php b/lib/Controller/AdminController.php
@@ -100,7 +100,10 @@ public function getSystemStatus(): Http\Response
             );
 
             // Check for system perl
-            $status['perl'] = $this->getExecutableStatus(exec('which perl'), static fn ($p) => BinExt::testSystemPerl($p));
+            $status['perl'] = $this->getExecutableStatus(
+                trim(shell_exec('which perl') ?: '/bin/perl'),
+                static fn ($p) => BinExt::testSystemPerl($p)
+            );
 
             // Check number of indexed files
             $status['indexed_count'] = $index->getIndexedCount();