ports/www/p5-HTML-Template-JIT/files/patch-JIT::Base.pm
Mathieu Arnold 0dcbb3207c Add some patches :
+ Fix 8bit symbols escaping.
+ Allow blessed hashrefs in loops.
+ Fix a portlint warning and make it not clutter perllocal.pod

PR:		70656
Submitted by:	Alex Kapranoff <kappa@rambler-co.ru>
2004-08-19 16:20:11 +00:00

11 lines
371 B
Perl

--- 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) {