summaryrefslogtreecommitdiff
path: root/new-infra/use_tldb.pl
diff options
context:
space:
mode:
Diffstat (limited to 'new-infra/use_tldb.pl')
-rw-r--r--new-infra/use_tldb.pl8
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;