mirror of
https://git.freebsd.org/ports.git
synced 2025-07-15 00:09:15 -04:00
+ 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>
11 lines
371 B
Perl
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) {
|