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