Moving over change from CVS repository. Fix case where frame is ill f…

…ormed.
dmolnar · Jul 10, 2009 · 5ba6711 · 5ba6711
1 parent d4f7f13
commit 5ba6711
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/catchconv/tests/libstackhash.pl b/catchconv/tests/libstackhash.pl
@@ -34,10 +34,16 @@ sub fuzzystackhash
     }
     $curframe = 0; 
     $fuzzystring = "";
+
+    $numframes = eval{@$frame}; 
+    if (! defined $numframes)
+    {
+       $numframes = 0; 
+    }
 
     #Depends on perl returning empty string when referencing $curframe
     #that does not exist. 
-    while ($curframe < 3 && ($curframe < @$frame)) 
+    while ($curframe < 3 && $numframes) 
     {
 	$frameobj = $frame->[$curframe]; 	
 	$fuzzystring = $fuzzystring . $frameobj->{'fn'};