From 09f41b321e810b4955ad185dbd07d0065f4043b1 Mon Sep 17 00:00:00 2001
From: Shiar <shiar@shiar.org>
Date: Sun, 28 Sep 2008 05:10:10 +0200
Subject: [PATCH] fix debug messages during replay parsing

Verbosity is defined by $SHOWWARN in the main namespace, which needs to
be specified specifically since moving into a different module.
---
 Data-StarCraft/lib/Data/StarCraft/Replay.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Data-StarCraft/lib/Data/StarCraft/Replay.pm b/Data-StarCraft/lib/Data/StarCraft/Replay.pm
index 507f7d6..3eb3825 100644
--- 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;
 			}
 
-- 
2.30.0