Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

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