MAX: remove depedency on Data::Dumper

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@2229 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2012-11-29 23:53:19 +00:00
parent d1948375f7
commit d78a769c82
3 changed files with 1 additions and 4 deletions

View File

@ -6,7 +6,6 @@ package main;
use strict; use strict;
use warnings; use warnings;
use MIME::Base64; use MIME::Base64;
use Data::Dumper;
use POSIX; use POSIX;
sub MAXLAN_Parse($$); sub MAXLAN_Parse($$);
@ -428,7 +427,7 @@ MAXLAN_Parse($$)
Dispatch($hash, "MAX,define,$hash->{devices}[-1]->{addr},$device_types{$hash->{devices}[-1]->{type}},$hash->{devices}[-1]->{serial},$hash->{devices}[-1]->{groupid}", {RAWMSG => $rmsg}); Dispatch($hash, "MAX,define,$hash->{devices}[-1]->{addr},$device_types{$hash->{devices}[-1]->{type}},$hash->{devices}[-1]->{serial},$hash->{devices}[-1]->{groupid}", {RAWMSG => $rmsg});
} }
Log $ll5, "Got Metadata, hash: ".Dumper($hash); #Log $ll5, "Got Metadata, hash: ".Dumper($hash);
}elsif($cmd eq "C"){#Configuration }elsif($cmd eq "C"){#Configuration
return if(@args < 2); return if(@args < 2);

View File

@ -6,7 +6,6 @@ package main;
use strict; use strict;
use warnings; use warnings;
use MIME::Base64; use MIME::Base64;
use Data::Dumper;
sub MAX_Define($$); sub MAX_Define($$);
sub MAX_Initialize($); sub MAX_Initialize($);

View File

@ -5,7 +5,6 @@ package main;
use strict; use strict;
use warnings; use warnings;
use Data::Dumper;
sub CUL_MAX_SendDeviceCmd($$); sub CUL_MAX_SendDeviceCmd($$);
sub CUL_MAX_Send(@); sub CUL_MAX_Send(@);