diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm index 3eeba79873..b68e96ad17 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm @@ -482,7 +482,7 @@ our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); clearcache clearallcache disablecache enablecache); %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ; -$VERSION = 1.23; +$VERSION = 1.24; # --- ':hireswallclock' special handling @@ -683,9 +683,9 @@ sub runloop { my($t0, $t1, $td); # before, after, difference # find package of caller so we can execute code there - my($curpack) = caller(0); + my $curpack = caller(0); my($i, $pack)= 0; - while (($pack) = caller(++$i)) { + while ($pack = caller(++$i)) { last if $pack ne $curpack; } |