www/p5-HTML-Template-JIT/files/patch-JIT::Base.pm


1
2
3
4
5
6
7
8
9
10
11

--- JIT/Base.pm	Wed Jun  9 15:31:15 2004
+++ JIT/Base.pm	Wed Jun  9 15:34:32 2004
@@ -75,7 +75,7 @@
 
   foreach my $row (@$array) {
     croak("Bad param settings - found non hash-ref for loop row in loop $loop_name!")
-      unless ref $row eq 'HASH';
+      unless ref $row && UNIVERSAL::isa($row, 'HASH');
     
     my $lc_name;
     foreach my $name (keys %$row) {