diff options
| -rw-r--r-- | lib/Youri/Repository/Mageia_upload.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Youri/Repository/Mageia_upload.pm b/lib/Youri/Repository/Mageia_upload.pm index dc82593..522f0e6 100644 --- a/lib/Youri/Repository/Mageia_upload.pm +++ b/lib/Youri/Repository/Mageia_upload.pm @@ -326,7 +326,7 @@ sub _get_section { # if have section already, check if it exists, and may return immediately if ($section) { - print "Using requested section $section\n"; + print "Using requested section $section\n" if $self->{_verbose}; if ($media->{$arch}{$section}) { return $section } else { @@ -374,7 +374,7 @@ sub _get_section { # first try to find section for the specific version, as it is possibly already there; # this is the case for when called in Youri::Submit::Action::Archive, to find the # section the package got installed - print "Looking for package $name with version $version-$release\n"; + print "Looking for package $name with version $version-$release\n" if $self->{_verbose}; foreach my $m (keys %{$media->{$arch}}) { print " .. section '$m' path '".$media->{$arch}{$m}."'\n" if $self->{_verbose}; # - prefer source for non-debug packages, use binary if there is no source media configured @@ -429,7 +429,7 @@ sub _get_section { # next time we don't need to search everything again $self->{packages}{$file}{section} = $section; - print "Section is '$section'.\n"; + print "Section is '$section'.\n" if $self->{_verbose}; return $section; } @@ -453,7 +453,7 @@ sub get_upload_newer_revisions { s/^\@\d+://; return if ! /^$pattern/; return if /\.info$/; - print "Find $_\n"; + print "Find $_\n" if $self->{_verbose} > 1; push @packages, $File::Find::name if $package->check_ranges_compatibility("== $name", "< $_") }, $path); } @@ -472,7 +472,7 @@ sub package_in_svn { my $svn_entry = $ctx->ls("$self->{_svn}/$srpm_name", 'HEAD', 0); if ($svn_entry) { - print "Package $srpm_name is in the SVN\n"; + print "Package $srpm_name is in the SVN\n" if $self->{_verbose}; return 1 } } |