FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 22:26:04 +00:00
Code Issues 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 ff90a0209a
commit 6d11d5049c
1 changed files with 4 additions and 4 deletions
Show Stats 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";