This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the cache in Carp::trusts actually persist across calls :-)
authorNicholas Clark <nick@ccl4.org>
Sun, 26 Nov 2006 18:00:05 +0000 (18:00 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 26 Nov 2006 18:00:05 +0000 (18:00 +0000)
I made a similar mistake once long ago, and now spot the pattern.

p4raw-id: //depot/perl@29385

lib/Carp/Heavy.pm

index 2caeb27..a293b59 100644 (file)
@@ -224,7 +224,10 @@ sub ret_summary {
 
 
 sub short_error_loc {
-  my $cache;
+  # You have to create your (hash)ref out here, rather than defaulting it
+  # inside trusts *on a lexical*, as you want it to persist across calls.
+  # (You can default it on $_[2], but that gets messy)
+  my $cache = {};
   my $i = 1;
   my $lvl = $CarpLevel;
   {
@@ -274,7 +277,7 @@ sub str_len_trim {
 sub trusts {
     my $child = shift;
     my $parent = shift;
-    my $cache = shift || {};
+    my $cache = shift;
     my ($known, $partial) = get_status($cache, $child);
     # Figure out consequences until we have an answer
     while (@$partial and not exists $known->{$parent}) {