X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=maint%2Frelease.pm;h=9930c1489d290cd3e25b565b0e8b81c98dbcad5b;hb=2e672447a48106a49ae5083bf68c4c260691e343;hp=85a074e6be35f0d3ecced472329f6b89a69f3127;hpb=efaf5b7e4748422f93709425ec106f5dbda32757;p=eval.git

diff --git a/maint/release.pm b/maint/release.pm
index 85a074e..9930c14 100644
--- a/maint/release.pm
+++ b/maint/release.pm
@@ -30,6 +30,8 @@ sub new($$) {
 		"archivedir" => "/home/mj/tmp/archives/$basename",
 		"uploads" => [
 			],
+		"testmake" => "make",
+		"testclean" => "make distclean",
 		# Options
 		"do_test" => 1,
 		"do_patch" => 1,
@@ -242,13 +244,15 @@ sub Test($) {
 	my $dd = $s->{"DISTDIR"};
 	my $pkg = $s->{"PKG"};
 	my $log = "$dd/$pkg.log";
+	my $make = $s->{'testmake'};
+	my $clean = $s->{'testclean'};
 	print "Doing a test compilation\n";
-	`( cd $dd/$pkg && make ) >$log 2>&1`;
+	`( cd $dd/$pkg && $make ) >$log 2>&1`;
 	die "There were errors. Please inspect $log" if $?;
 	`grep -q [Ww]arning $log`;
 	$? or print "There were warnings! Please inspect $log.\n";
 	print "Cleaning up\n";
-	`cd $dd/$pkg && make distclean`; die if $?;
+	`cd $dd/$pkg && $clean`; die if $?;
 }
 
 sub MakePatch($) {