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

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) = @_;