/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by wakaba, Tue Jun 11 13:01:21 2002 UTC revision 1.25 by wakaba, Wed Jun 12 11:38:56 2002 UTC
# Line 308  sub _item_match ($$\$\%\%) { Line 308  sub _item_match ($$\$\%\%) {
308      }      }
309      return 1 if $l{$$i->{name} . ':' . $$i->{ns}};      return 1 if $l{$$i->{name} . ':' . $$i->{ns}};
310    } elsif ($by eq 'ns') {    } elsif ($by eq 'ns') {
311      my %o = %$option; $o{parse} = 0;      return 1 if $list->{ $$i->{ns} };
     my %l;  
     for (keys %$list) {  
       my ($s, undef, $v) = $self->_value_to_arrayitem ($_, '', %o);  
       if ($s) {  
         $l{ $v->{ns} } = 1;  
       } else {  
         $l{ $self->{ns}->{default_phuri} } = 1;  
       }  
     }  
     return 1 if $l{ $$i->{ns} };  
312    }    }
313    0;    0;
314  }  }
# Line 443  sub _value_to_arrayitem ($$$\%) { Line 433  sub _value_to_arrayitem ($$$\%) {
433    }    }
434    my $nsuri = $self->{ns}->{default_phuri};    my $nsuri = $self->{ns}->{default_phuri};
435    no strict 'refs';    no strict 'refs';
436    if ($option->{ns}) {    if ($value_option->{ns}) {
437        $nsuri = $value_option->{ns};
438      } elsif ($option->{ns}) {
439      $nsuri = $option->{ns};      $nsuri = $option->{ns};
440    } elsif ($name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) {    } elsif ($name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) {
441      my $oprefix = $1;      my $oprefix = $1;
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24