diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Memoize.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Memoize.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/Memoize.pm b/Master/tlpkg/tlperl/lib/Memoize.pm index 0cecbcab0a6..1ebc1741398 100644 --- a/Master/tlpkg/tlperl/lib/Memoize.pm +++ b/Master/tlpkg/tlperl/lib/Memoize.pm @@ -7,11 +7,9 @@ # You may copy and distribute this program under the # same terms as Perl itself. If in doubt, # write to mjd-perl-memoize+@plover.com for a license. -# -# Version 1.01 $Revision: 1.18 $ $Date: 2001/06/24 17:16:47 $ package Memoize; -$VERSION = '1.01_03'; +$VERSION = '1.02'; # Compile-time constants sub SCALAR () { 0 } @@ -266,9 +264,9 @@ sub _memoizer { # Otherwise, we cached an array containing the returned list: return @$val; } else { - my @q = &{$info->{U}}(@_); - $cache->{$argstr} = $info->{O}{LIST_CACHE} eq 'MERGE' ? $q [0] : \@q; - @q; + my @q = &{$info->{U}}(@_); + $cache->{$argstr} = $info->{O}{LIST_CACHE} eq 'MERGE' ? $q [0] : \@q; + @q; } } else { croak "Internal error \#42; context was neither LIST nor SCALAR\n"; @@ -362,7 +360,7 @@ Memoize - Make functions faster by trading space for time =head1 SYNOPSIS - # This is the documentation for Memoize 1.01 + # This is the documentation for Memoize 1.02 use Memoize; memoize('slow_function'); slow_function(arguments); # Is faster than it was before |