From 6d11d5049cc19c356075c3b797b13d349183aba5 Mon Sep 17 00:00:00 2001
From: gandy92 <>
Date: Tue, 5 May 2015 14:44:55 +0000
Subject: [PATCH] 76_MSGMail: Fix perl warning

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

diff --git a/fhem/FHEM/76_MSGMail.pm b/fhem/FHEM/76_MSGMail.pm
index 20545f985..fac6b9f4f 100644
--- a/fhem/FHEM/76_MSGMail.pm
+++ b/fhem/FHEM/76_MSGMail.pm
@@ -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";