From e7d0872468d9ff54c39ac8a7e64f283ba093c7aa Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 13 Jun 2015 04:46:23 +0200
Subject: [PATCH] sc: read version number from data include

Variable with other data unlike other metadata.
---
 sc-units-bw.inc.pl   |  5 +++++
 sc-units-hots.inc.pl |  3 +++
 sc.plp               | 12 +++++++-----
 3 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/sc-units-bw.inc.pl b/sc-units-bw.inc.pl
index 47658d1..2d46ae5 100644
--- a/sc-units-bw.inc.pl
+++ b/sc-units-bw.inc.pl
@@ -1,8 +1,13 @@
+use utf8;
+use strict;
+
 # time in fastest game seconds
 my $FPS = 24;  # frames per second
 # toss shield += .65 per second
 # zerg regen  += .37 per second
+
 [
+'<span title="no known changes as of v1.16.1">version≥1.08</span>',
 
 # protoss
 
diff --git a/sc-units-hots.inc.pl b/sc-units-hots.inc.pl
index c1d84ce..3ba370a 100644
--- a/sc-units-hots.inc.pl
+++ b/sc-units-hots.inc.pl
@@ -1,4 +1,7 @@
+use utf8;
+
 [
+'patch 2.1.3 BU',
 # http://wiki.teamliquid.net/starcraft2/Unit_Statistics
 # http://wiki.teamliquid.net/starcraft2/User:Roemy/Unit_Statistics_(detailed)
 # http://starcraft.wikia.com/wiki/List_of_StarCraft_II_units
diff --git a/sc.plp b/sc.plp
index 3252cf3..13248fb 100644
--- a/sc.plp
+++ b/sc.plp
@@ -3,7 +3,6 @@
 my %scver = (
 	id => 'bw',
 	name => 'Brood War',
-	patch => '<span title="no known changes as of v1.16.1">version≥1.08</span>',
 	title => 'starcraft',
 	game => 'StarCraft',
 	major => 1,
@@ -13,7 +12,6 @@ if ($ENV{PATH_INFO} and $ENV{PATH_INFO} eq '/2') {
 	%scver = (
 		id => 'hots',
 		name => 'Heart of the Swarm',
-		patch => 'patch 2.1.3 BU',
 		title => 'starcraft2',
 		game => 'StarCraft II',
 		major => 2,
@@ -42,7 +40,13 @@ Html({
 });
 
 print "<h1>$scver{game} units</h1>\n\n";
-print "<p>Unit properties as seen or measured in $scver{name}\n$scver{patch}.\n</p>\n\n";
+
+my $units = do $datafile;
+die "Cannot open unit data: $_\n" for $@ || $! || ();
+my $patch = shift @{$units}
+	or die "Cannot open unit data: metadata not found\n";
+
+print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n</p>\n\n";
 
 sub coltoggle {
 	my ($name, $id) = @_;
@@ -213,8 +217,6 @@ sub showval {
 		);
 	}
 
-	my $units = do $datafile;
-	die "Cannot open unit data: $_\n" for $@ || $! || ();
 	my $grouped = 1;  # race headers
 	if (exists $get{order}) {
 		$grouped = 0;
-- 
2.30.0