summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm10
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) = @_;