use warnings;
use Data::Dumper;
+our $VERSION = '1.00';
+
use constant {
CMD_REPEAT => 4,
};
if (not defined $cmdread{$cmd}) {
warn sprintf "command #%X not defined: %d bytes ignored\n",
$cmd, scalar @block;
- push @$self, [$time, $player, "??? $cmd"] if $SHOWWARN;
+ push @$self, [$time, $player, "??? $cmd"] if $::SHOWWARN;
last;
}