This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #39026] Tie::Memoize::EXISTS not caching the value
authorLen Weisberg <unknown>
Fri, 28 Apr 2006 20:36:05 +0000 (13:36 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 15 Nov 2006 15:28:53 +0000 (15:28 +0000)
From: Len Weisberg (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-39026-132847.17.5801704932685@perl.org>

p4raw-id: //depot/perl@29283

lib/Tie/Memoize.pm

index 2793a04..dbe1442 100644 (file)
@@ -2,7 +2,7 @@ use strict;
 package Tie::Memoize;
 use Tie::Hash;
 our @ISA = 'Tie::ExtraHash';
-our $VERSION = '1.0';
+our $VERSION = '1.1';
 
 our $exists_token = \undef;
 
@@ -30,11 +30,11 @@ sub EXISTS   {
   my $cache = $a->[1]{$key};
   return $cache if defined $cache; # Existence cache
   my @res = $a->[3]($key,$a->[4]);
-  $_[0][1]{$key} = 0, return unless @res; # Cache non-existence
+  $a->[1]{$key} = 0, return unless @res; # Cache non-existence
   # Now we know it exists
-  return ($_[0][1]{$key} = 1) if $a->[5]; # Only existence reported
+  return ($a->[1]{$key} = 1) if $a->[5]; # Only existence reported
   # Now know the value
-  $_[0][0]{$key} = $res[0];    # Store data
+  $a->[0]{$key} = $res[0];    # Store data
   return 1
 }