X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=maint%2Frelease.pm;h=979067103d3585f9b4922d6abc7024727882a1f1;hb=6b320e70ce89090190da7f4d91c71245c029c717;hp=8b9d2ef9ebe7e3e7e8cc8ab8a7f8b9dee59f5c8f;hpb=fd794b4ed457f67ccd68a7befe6ff0907416ab57;p=libucw.git

diff --git a/maint/release.pm b/maint/release.pm
index 8b9d2ef9..97906710 100644
--- a/maint/release.pm
+++ b/maint/release.pm
@@ -322,6 +322,7 @@ sub MakePatch($) {
 
 sub Upload($) {
 	my ($s) = @_;
+	$s->{"do_upload"} or return;
 	foreach my $u (@{$s->{"uploads"}}) {
 		my $url = $u->{"url"};
 		print "Upload to $url :\n";