Created an OpenWRT package

[libucw.git] / maint / release.pm

diff --git a/maint/release.pm b/maint/release.pm
index 8b9d2ef9ebe7e3e7e8cc8ab8a7f8b9dee59f5c8f..979067103d3585f9b4922d6abc7024727882a1f1 100644 (file)
--- 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";