X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoDownload.pm;h=bb7d073795861a4f1e95d10298b0caca76d1ce67;hb=f0badaa6a67f93bfe69149b2775bb5131ebebd57;hp=566195a7c629144395992e62cdf0f4b6bbb89d5f;hpb=35396b36e9658cb7346fb080531fff92a6d0fd57;p=deb%2Fpackages.git
diff --git a/lib/Packages/DoDownload.pm b/lib/Packages/DoDownload.pm
index 566195a..bb7d073 100644
--- a/lib/Packages/DoDownload.pm
+++ b/lib/Packages/DoDownload.pm
@@ -10,7 +10,6 @@ use Benchmark ':hireswallclock';
use Exporter;
use Deb::Versions;
-use Packages::I18N::Locale;
use Packages::Search qw( :all );
use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @SECTIONS @ARCHITECTURES );
use Packages::CGI;
@@ -73,11 +72,11 @@ sub do_download {
debug( "final_result=@$final_result", 1 );
$archive = $final_result->[1];
- my %data = split /\000/, $packages_all{"$pkg $arch $final_result->[7]"};
+ my %data = split(/\000/, $packages_all{"$pkg $arch $final_result->[7]"}||'');
if (!%data && $arch ne 'all' && $final_result->[3] eq 'all') {
%data = split /\000/, $packages_all{"$pkg all $final_result->[7]"};
- $arch = 'all';
debug( "choosing arch 'all' instead of requested arch $arch", 1 );
+ $arch = 'all';
# fatal_error( _g( "No such package." )."
".
# sprintf( _g( 'Search for the package' ), "$SEARCH_URL/$pkg" ) ) unless %data;
}
@@ -90,10 +89,10 @@ sub do_download {
$page_content->{pkg} = $pkg;
my $pkgsize = floor(($data{size}/102.4)+0.5)/10;
if ($pkgsize < 1024) {
- $page_content->{pkgsize} = sprintf( '%.1f', $pkgsize );
+ $page_content->{pkgsize} = $pkgsize;
$page_content->{pkgsize_unit} = $cat->g( 'kByte' );
} else {
- $page_content->{pkgsize} = sprintf( '%.1f', floor(($data{size}/(102.4*102.4))+0.5)/100 );
+ $page_content->{pkgsize} = floor(($data{size}/(102.4*102.4))+0.5)/100;
$page_content->{pkgsize_unit} = $cat->g( 'MByte' );
}
$page_content->{architecture} = $arch;