use Protocol.pm

[zc] / Protocol.pm

diff --git a/Protocol.pm b/Protocol.pm
index 1b378cc..fd162f6 100644 (file)
--- a/Protocol.pm
+++ b/Protocol.pm
@@ -76,7 +76,7 @@ sub modbus_crc16 {
        return $trlr;
 }
 
-my $protocol;
+our $protocol;
 while(<DATA>) {
        chomp;
        next if m{^\s*$}; # skip empty lines
@@ -94,8 +94,6 @@ while(<DATA>) {
        };
 }
 
-warn "## protocol = ",dump( $protocol ) if $debug;
-
 sub read_parameter_frame {
        my $params = join('', @_);