diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 10 |
1 files 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) = @_; |