Changeset 777 in MondoRescue

Timestamp:

Aug 9, 2006, 1:39:30 AM (18 years ago)

Author:

Bruno Cornec

Message:

Fix #41 again

File:

• branches/2.0.9/tools/mkchangelog.pl (modified) (2 diffs)

branches/2.0.9/tools/mkchangelog.pl

@@ -62 +62 @@
 open(INPUT,"$chglog") || die "Unable to open $chglog (read)";
 open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)";
-open(TAG, "$ENV{TOPDIR}/LAST") || die "Unable to open $ENV{TOPDIR}/LAST";
 
-$tmp = <TAG>;
-chomp($tmp);
-my ($tmp2, $tag) = split(/-/, $tmp);
 # Skip first 4 lines
 $tmp = <INPUT>;
@@ -91 +87 @@
     if ($dtype eq "rpm") {
         if ($ver !~ /-/) {
-            $ver2 = "$ver-$tag"."$ENV{suf}";
+            $ver2 = "$ver-$ENV{TAG}"."$ENV{suf}";
         } else {
             $ver2 = "$ver"."$ENV{suf}";