diff options
Diffstat (limited to 'new-infra/use_tldb.pl')
-rw-r--r-- | new-infra/use_tldb.pl | 8 |
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; |