/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

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

revision 1.22 by wakaba, Wed May 29 11:05:53 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    }    }
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24