From 364c41ff9ead9873e105431354ec5e5b73c887d3 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 20 Jun 2007 05:31:57 +0000 Subject: fix error found by Reinhard, we used 'binsizes' instead of 'binsize' git-svn-id: svn://tug.org/texlive/trunk@4478 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index b5d4a3a6e2e..8a468fb7523 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -409,13 +409,13 @@ sub is_arch_dependent { # computes the total size of a package # if no arguments are given this is -# docsize + runsize + srcsize + max of binsizes +# docsize + runsize + srcsize + max of binsize sub total_size { my ($self,@archs) = @_; my $ret = $self->docsize + $self->runsize + $self->srcsize; if ($self->is_arch_dependent) { my $max = 0; - my %foo = %{$self->binsizes}; + my %foo = %{$self->binsize}; foreach my $k (keys %foo) { $max = $foo{$k} if ($foo{$k} > $max); } @@ -499,11 +499,11 @@ sub binfiles { if (@_) { $self->{'binfiles'} = \%newfiles } return $self->{'binfiles'}; } -sub binsizes { +sub binsize { my $self = shift; my %newsizes = @_; - if (@_) { $self->{'binsizes'} = \%newsizes } - return $self->{'binsizes'}; + if (@_) { $self->{'binsize'} = \%newsizes } + return $self->{'binsize'}; } sub add_binfiles { my ($self,$arch,@files) = @_; -- cgit v1.2.3