FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-24 15:19:21 +00:00
Code Issues Releases Wiki Activity

fixed an error with perl 8.x

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2647 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mfr69bs 2013-02-04 21:43:52 +00:00
parent 8380244632
commit ab6f7a01bd
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/98_notice.pm
View File

@ -68,7 +68,7 @@ CommandNotice($$)
$args[0] = "list" if(!defined($args[0]));
if(!@args || $args[0] ~~ @commands) {
if(!@args ||grep (m/^$args[0]$/, @commands)) {
my $cmd = $args[0];
if($cmd eq "list") {
@ -93,15 +93,16 @@ CommandNotice($$)
my $locale = "en";
my $header = 1;
if(@args == 3) {
$locale = ($args[2] ~~ @locale) ? $args[2] : "en";
$locale = (grep (m/^$args[2]$/, @locale)) ? $args[2] : "en";
$locale = (grep (m/^$args[2]$/, @locale)) ? $args[2] : "en";
$header = ($args[2] eq "noheader") ? 0 : 1;
} elsif(@args == 4) {
if($args[2] ~~ @locale) {
$locale = ($args[2] ~~ @locale) ? $args[2] : "en";
if(grep (m/^$args[2]$/, @locale)) {
$locale = (grep (m/^$args[2]$/, @locale)) ? $args[2] : "en";
$header = ($args[3] eq "noheader") ? 0 : 1;
} elsif($args[2] eq "noheader") {
$header = ($args[2] eq "noheader") ? 0 : 1;
$locale = ($args[3] ~~ @locale) ? $args[3] : "en";
$locale = (grep (m/^$args[3]$/, @locale)) ? $args[3] : "en";
}
}