diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm index fcbf5dd..7d4e971 100644 --- a/74_AMADDevice.pm +++ b/74_AMADDevice.pm @@ -140,18 +140,18 @@ sub AMADDevice_Define($$) { my $i = 0; ######## Kann in kommenden Versionen gelöscht werden ############### - #foreach my $param ( @a ) { - # if( $param =~ m/IODev=([^\s]*)/ ) { + foreach my $param ( @a ) { + if( $param =~ m/IODev=([^\s]*)/ ) { - # $iodev = $1; - # splice( @a, $i, 3 ); - # last; - # } + $iodev = $1; + splice( @a, $i, 4 ); + last; + } - # $i++; - #} + $i++; + } - return "too few parameters: define AMADDevice " if( @a != 5 ); + return "too few parameters: define AMADDevice " if( @a != 4 ); return "Cannot define a AMAD device. Perl modul $missingModul is missing." if ( $missingModul );