summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-06-20 05:31:57 +0000
committerNorbert Preining <preining@logic.at>2007-06-20 05:31:57 +0000
commit364c41ff9ead9873e105431354ec5e5b73c887d3 (patch)
tree0feafcd96a2b3a4ca56031c6ea857ead941c8b86
parent4429be21ce9cb6ad65ffe303720a7415f05eec84 (diff)
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
-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) = @_;