| … | |
… | |
| 569 | $name =~ y/-/./ if $isarg; |
569 | $name =~ y/-/./ if $isarg; |
| 570 | |
570 | |
| 571 | $term->scan_meta; |
571 | $term->scan_meta; |
| 572 | |
572 | |
| 573 | my $r = $term->{meta}{resource}; |
573 | my $r = $term->{meta}{resource}; |
| 574 | keys %$r; # reste iterator |
574 | keys %$r; # reset iterator |
| 575 | while (my ($pattern, $v) = each %$r) { |
575 | while (my ($pattern, $v) = each %$r) { |
| 576 | if ( |
576 | if ( |
| 577 | $pattern =~ /\.$/ |
577 | $pattern =~ /\.$/ |
| 578 | ? $pattern eq substr $name, 0, length $pattern |
578 | ? $pattern eq substr $name, 0, length $pattern |
| 579 | : $pattern eq $name |
579 | : $pattern eq $name |
