From 961d2a7cc1984d259c0be5c87d498493aa65b1c4 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 30 May 2020 08:34:11 +0000
Subject: [PATCH] fhem.pl: fix warning if fhem.pl called without argument

git-svn-id: https://svn.fhem.de/fhem/trunk@22074 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index f270cbe11..d1e97c0c8 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -480,7 +480,7 @@ my %ra = (
 ###################################################
 # Start the program
 my $fhemdebug;
-$fhemdebug = shift @ARGV if($ARGV[0] eq "-d");
+$fhemdebug = shift @ARGV if($ARGV[0] && $ARGV[0] eq "-d");
 prepareFhemTestFile();
 
 if(int(@ARGV) < 1) {
@@ -6087,7 +6087,7 @@ applyGlobalAttrFromEnv()
 sub
 prepareFhemTestFile()
 {
-  return if($ARGV[0] ne "-t" || @ARGV < 2);
+  return if($ARGV[0] && $ARGV[0] ne "-t" || @ARGV < 2);
   shift @ARGV;
 
   if($ARGV[0] !~ m,^(.*?)([^/]+)\.t$, || !-r $ARGV[0]) {