new stuff: revision handling, some docs, tests

git-svn-id: svn://tug.org/texlive/trunk@4255 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 7 insertions, 1 deletions

diff --git a/new-infra/use_tldb.pl b/new-infra/use_tldb.pl
index d9342a0267b..4403dd48112 100644
--- a/new-infra/use_tldb.pl
+++ b/new-infra/use_tldb.pl
@@ -84,7 +84,12 @@ sub read_tldb_file {
 			$started = 1;
 		} else {
 			$started || die("First directive needs to be 'name'");
-			if ($line =~ /^shortdesc\s*(.*)$/) {
+			if ($line =~ /^packageversion\s*(.*)$/) {
+				logit("found packageversion: $1\n");
+				$tldb{$name}{'packageversion'} = "$1";
+				$lastcmd = "packageversion";
+				next;
+			} elsif ($line =~ /^shortdesc\s*(.*)$/) {
 				logit("found shortdesc: $1\n");
 				$tldb{$name}{'shortdesc'} .= "$1 ";
 				$lastcmd = "shortdesc";
@@ -170,6 +175,7 @@ sub write_tlp_file {
 	my ($tlp) = @_;
 	open(TLP,">tlp/$tlp.tlp") || die("Cannot open tlp/$tlp.tlp for writing: $!");
 	print TLP "name $tlp\n";
+	print TLP "packageversion $tldb{$tlp}{'packageversion'}\n";
 	if (defined($tldb{$tlp}{'shortdesc'})) {
 		$tlpline = "shortdesc $tldb{$tlp}{'shortdesc'}";
 		write TLP;