| … | |
… | |
| 946 | no warnings 'utf8'; |
946 | no warnings 'utf8'; |
| 947 | |
947 | |
| 948 | sub parse_resource { |
948 | sub parse_resource { |
| 949 | my ($term, $name, $isarg, $longopt, $flag, $value) = @_; |
949 | my ($term, $name, $isarg, $longopt, $flag, $value) = @_; |
| 950 | |
950 | |
|
|
951 | $name =~ y/-/./ if $isarg; |
|
|
952 | |
| 951 | $term->scan_meta; |
953 | $term->scan_meta; |
| 952 | |
954 | |
| 953 | my $r = $term->{meta}{resource}; |
955 | my $r = $term->{meta}{resource}; |
|
|
956 | keys %$r; # reste iterator |
| 954 | while (my ($pattern, $v) = each %$r) { |
957 | while (my ($pattern, $v) = each %$r) { |
| 955 | $name =~ y/-/./ if $isarg; |
|
|
| 956 | |
|
|
| 957 | if ( |
958 | if ( |
| 958 | $pattern =~ /\.$/ |
959 | $pattern =~ /\.$/ |
| 959 | ? $pattern eq substr $name, 0, length $pattern |
960 | ? $pattern eq substr $name, 0, length $pattern |
| 960 | : $pattern eq $name |
961 | : $pattern eq $name |
| 961 | ) { |
962 | ) { |
