git.shiar.nl
/
perl
/
schtarr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XXX: scmap: restore metadata marking (era-dependant styling)
[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;
use warnings;
use Data::Dumper;
+our $VERSION = '1.00';
+
use constant {
CMD_REPEAT => 4,
};
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;
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;
}
last;
}