73_AMADCommBridge: fix bug Undefined subroutine

git-svn-id: https://svn.fhem.de/fhem/trunk@19673 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/CHANGED

@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - bugfix:  73_AMADCommBridge: fix bug Undefined subroutine
  - change:  GPUtils: add modul header
  - feature: GPUtils: change Maintainer, add Export Fn
  - feature: 73_AMADCommBridge: change version code

fhem/FHEM/73_AMADCommBridge.pm

@@ -64,12 +64,10 @@ use strict;
 use warnings;
 use POSIX;
 use FHEM::Meta;
-use GPUtils qw(GP_Import);
+use GPUtils qw(GP_Import GP_Export);
 use HttpUtils;
 use TcpServerUtils;
 
-my $flowsetversion = '4.4.1';
-
 my $missingModul = '';
 eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
 
@@ -176,22 +174,10 @@ BEGIN {
     );
 }
 
-# _Export - Export references to main context using a different naming schema
-sub _Export {
-    no strict qw/refs/;    ## no critic
-    my $pkg  = caller(0);
-    my $main = $pkg;
-    $main =~ s/^(?:.+::)?([^:]+)$/main::$1\_/g;
-    foreach (@_) {
-        *{ $main . $_ } = *{ $pkg . '::' . $_ };
-    }
-}
-
 #-- Export to main context with different name
-_Export(
+GP_Export(
     qw(
       Initialize
-      Flowsetversion
       )
 );
 
@@ -249,7 +235,7 @@ sub Define($$) {
     $hash->{BRIDGE}         = 1;
     $hash->{PORT}           = $port;
     $hash->{VERSION}        = version->parse($VERSION)->normal;
-    $hash->{VERSIONFLOWSET} = $flowsetversion;
+    $hash->{VERSIONFLOWSET} = FHEM::Meta::Get( $hash, 'x_flowsetversion' );
 
     CommandAttr( undef, $name . ' room AMAD' )
       if ( AttrVal( $name, 'room', 'none' ) eq 'none' );
@@ -890,6 +876,8 @@ sub ProcessRead($$) {
 
     my ( $hash, $buf ) = @_;
     my $name = $hash->{NAME};
+    my $flowsetversion =
+      $modules{AMADCommBridge}{defptr}{BRIDGE}->{VERSIONFLOWSET};
 
     my @data   = split( '\R\R', $buf );
     my $data   = $data[0];
@@ -1286,10 +1274,6 @@ sub ParseMsg($$) {
     return ( $msg, $tail );
 }
 
-sub Flowsetversion() {
-    return $flowsetversion;
-}
-
 ##### bleibt zu Anschauungszwecken erhalten
 #sub Header2Hash($) {
 #
@@ -1478,7 +1462,8 @@ sub Flowsetversion() {
   ],
   "release_status": "stable",
   "license": "GPL_2",
-  "version": "v4.4.2",
+  "version": "v4.4.3",
+  "x_flowsetversion": "4.4.1",
   "author": [
     "Marko Oldenburg <leongaultier@gmail.com>"
   ],

fhem/FHEM/74_AMADDevice.pm

@@ -52,9 +52,9 @@ use warnings;
 use POSIX;
 use FHEM::Meta;
 use Data::Dumper;    #only for Debugging
-use GPUtils qw(GP_Import);
+use GPUtils qw(GP_Import GP_Export);
 
-require FHEM::73_AMADCommBridge;
+require '73_AMADCommBridge.pm';
 
 my $missingModul = '';
 eval "use Encode qw(encode encode_utf8);1" or $missingModul .= 'Encode ';
@@ -165,19 +165,8 @@ BEGIN {
     );
 }
 
-# _Export - Export references to main context using a different naming schema
-sub _Export {
-    no strict qw/refs/;    ## no critic
-    my $pkg  = caller(0);
-    my $main = $pkg;
-    $main =~ s/^(?:.+::)?([^:]+)$/main::$1\_/g;
-    foreach (@_) {
-        *{ $main . $_ } = *{ $pkg . '::' . $_ };
-    }
-}
-
 #-- Export to main context with different name
-_Export(
+GP_Export(
     qw(
       Initialize
       )
@@ -254,7 +243,6 @@ sub Define($$) {
     $hash->{HOST}      = $host;
     $hash->{AMAD_ID}   = $amad_id;
     $hash->{VERSION}   = version->parse($VERSION)->normal;
-    $hash->{VERSIONFLOWSET} = AMADCommBridge_Flowsetversion();
     $hash->{NOTIFYDEV} = 'global,' . $name;
     $hash->{MODEL}     = $remoteServer;
 
@@ -289,6 +277,9 @@ sub Define($$) {
 
     $iodev = $hash->{IODev}->{NAME};
 
+#     $hash->{VERSIONFLOWSET} = FHEM::Meta::Get( $defs{$iodev}, 'x_flowsetversion' );
+    $hash->{VERSIONFLOWSET} = $defs{$iodev}->{VERSIONFLOWSET};
+
     my $d = $modules{AMADDevice}{defptr}{$amad_id};
 
     return
@@ -1689,7 +1680,7 @@ sub CreateChangeBtDeviceValue($$) {
   ],
   "release_status": "stable",
   "license": "GPL_2",
-  "version": "v4.4.2",
+  "version": "v4.4.3",
   "author": [
     "Marko Oldenburg <leongaultier@gmail.com>"
   ],