From: Martin Mares <mj@ucw.cz>
Date: Sat, 19 Feb 2005 14:52:55 +0000 (+0000)
Subject: Updated Release.pm
X-Git-Tag: v3.0.0~98
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=18a3827d2e4d6eb6dc642f56eb691db42a9e0578;p=pciutils.git

Updated Release.pm

git-archimport-id: mj@ucw.cz--public/pciutils--main--2.2--patch-67
---

diff --git a/maint/release.pm b/maint/release.pm
index bf8afc0..1e826c0 100644
--- a/maint/release.pm
+++ b/maint/release.pm
@@ -19,6 +19,8 @@ sub new($$) {
 			'\.(lsm|spec)$' => 'ps',
 			'(^|/)README$' => 's'
 			],
+		"directories" => [
+			],
 		"conditions" => {
 			},
 		"DATE" => `date '+%Y-%m-%d' | tr -d '\n'`,
@@ -182,6 +184,10 @@ sub GenPackage($) {
 		$s->CopyFile($f, $dir, $action);
 	}
 
+	foreach my $d (@{$s->{"directories"}}) {
+		`mkdir -p $dir/$d`; die if $?;
+	}
+
 	if (-f "$dir/Makefile") {
 		print "Cleaning up\n";
 		`cd $dir && make distclean >&2`; die if $?;
@@ -245,7 +251,8 @@ sub MakePatch($) {
 	} elsif (defined $s->{"OLDVERSION"}) {
 		$oldver = $s->{"OLDVERSION"};
 	} else {
-		die "MakePatch: Don't know which is the previous version";
+		print "WARNING: No previous version known. No patch generated.\n";
+		return;
 	}
 	my $pkg0 = $s->{"PACKAGE"} . "-" . $oldver;