fix debug messages during replay parsing

[perl/schtarr.git] / Data-StarCraft / lib / Data / StarCraft / Replay.pm

diff --git a/Data-StarCraft/lib/Data/StarCraft/Replay.pm b/Data-StarCraft/lib/Data/StarCraft/Replay.pm
index 507f7d61eb488b2491ced7df0a7a603594d54df9..3eb3825c36a9a5b88b7848737062479e8013d446 100644 (file)
--- a/Data-StarCraft/lib/Data/StarCraft/Replay.pm
+++ b/Data-StarCraft/lib/Data/StarCraft/Replay.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use Data::Dumper;
 
+our $VERSION = '1.00';
+
 use constant {
        CMD_REPEAT => 4,
 };
@@ -356,7 +358,7 @@ sub open {
                        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;
                        }