summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Benchmark.pm6
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;
}