X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/805e43e4a719b58c3bda97381fa022f2e6a41239..76fd310606de1de6a1ffff64b2217eab74b65d28:/screp diff --git a/screp b/screp index 93eb14f..dbd264c 100755 --- a/screp +++ b/screp @@ -457,7 +457,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"