summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Memoize.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Memoize.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Memoize.pm12
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