mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

76_MSGMail: Fix perl warning

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8532 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
gandy92
2015-05-05 14:44:55 +00:00
parent e13f540496
commit 6ce9457cf0
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/76_MSGMail.pm
View File

@@ -1,6 +1,6 @@
##############################################
########################################################
# $Id$
##############################################
########################################################
package main;
use strict;
@@ -73,7 +73,7 @@ MSGMail_Set($@)
##### we like to clear our buffer, first clear all lines of @data
##### and then set the counter to 0 and the status to clear
if($a[0] eq "clear")
elsif($a[0] eq "clear")
{
my $i;
for($i=0;$i<ReadingsVal($name,"msgcount",0);$i++)
@@ -88,7 +88,7 @@ MSGMail_Set($@)
##### we like to see the buffer
if($a[0] eq "list")
elsif($a[0] eq "list")
{
my $i;
my $mess = "---- Lines of data for $name ----\n";