/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

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

revision 1.21 by wakaba, Sun May 26 01:20:09 2002 UTC revision 1.23 by wakaba, Sun Jun 9 11:20:24 2002 UTC
# Line 213  sub parse ($$;%) { Line 213  sub parse ($$;%) {
213        my ($s,undef,$value) = $self->_value_to_arrayitem        my ($s,undef,$value) = $self->_value_to_arrayitem
214          ($name => $body, $self->{option});          ($name => $body, $self->{option});
215        push @{$self->{value}}, $value if $s;        push @{$self->{value}}, $value if $s;
216        } elsif (length $field) {
217          my ($s,undef,$value) = $self->_value_to_arrayitem
218            ('x-unknown' => $field, $self->{option});
219          push @{$self->{value}}, $value if $s;
220      }      }
221    }    }
222    $self;    $self;
# Line 260  sub parse_array ($\@;%) { Line 264  sub parse_array ($\@;%) {
264        my ($s,undef,$value) = $self->_value_to_arrayitem        my ($s,undef,$value) = $self->_value_to_arrayitem
265          ($name => $body, $self->{option});          ($name => $body, $self->{option});
266        push @{$self->{value}}, $value if $s;        push @{$self->{value}}, $value if $s;
267        } elsif (length $field) {
268          my ($s,undef,$value) = $self->_value_to_arrayitem
269            ('x-unknown' => $field, $self->{option});
270          push @{$self->{value}}, $value if $s;
271      }      }
272      last if $#$header < 0;      last if $#$header < 0;
273    }    }
# Line 461  first one is used and the others are not Line 469  first one is used and the others are not
469  =cut  =cut
470    
471  sub _replace_hash_shift ($\%$\%) {  sub _replace_hash_shift ($\%$\%) {
472    shift; my $r = shift;  my $n = $_[0]->{name};    shift; my $r = shift;  my $n = $_[0]->{name} . ':' . $_[0]->{ns};
473    if ($$r{$n}) {    if ($$r{$n}) {
474      my $d = $$r{$n};      my $d = $$r{$n};
475      delete $$r{$n};      delete $$r{$n};
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.23
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24