X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/9fd17d6c804444e1f515500c1c939443759caead..8884f5a878a6dac4e4540f6caf2c64e09225d461:/screp

diff --git a/screp b/screp
index 93eb14f..edf643e 100755
--- a/screp
+++ b/screp
@@ -3,10 +3,12 @@ use strict;
 use warnings;
 use Data::Dumper;
 
+our $VERSION = '1.00';
+
 my $SHOWWARN = 0;
 my $APMSVG = undef;
 
-use Getopt::Long;
+use Getopt::Long qw(:config bundling auto_version auto_help);
 GetOptions(
 	"verbose|v!" => \$SHOWWARN,
 	"apm|a=s" => \$APMSVG,
@@ -457,7 +459,7 @@ for (0 .. 11) {
 	my $number = shift @playdata;
 	defined $player[$number] and warn "Player #$number redefined";
 	my ($data) = unpackhash("VcccZ25", shift @playdata, qw(
-		slot type race unknown name
+		slot type race team name
 	));
 	defined $race[$_] ? ($data->{race} = $race[$_]) :
 		warn "Unknown race #$_ for player $number"
@@ -615,3 +617,25 @@ if ($APMSVG) {
 	print $apmfile $svg;
 }
 
+__END__
+
+=head1 NAME
+
+screp - StarCraft replay parser
+
+=head1 SYNOPSIS
+
+screp [options] < [replay data]
+
+ Options:
+   --verbose
+   --apm
+
+=head1 OPTIONS
+
+=head1 AUTHOR
+
+Mischa POSLAWSKY <perl@shiar.org>
+
+=head1 STUFF
+