Parent Directory | Revision Log | Patch
revision 84 by dpavlin, Mon Mar 1 18:57:30 2010 UTC | revision 85 by dpavlin, Mon Mar 1 19:58:47 2010 UTC | |
---|---|---|
# | Line 145 sub log_response { | Line 145 sub log_response { |
145 | foreach my $val ( @{ $attr->{vals} } ) { | foreach my $val ( @{ $attr->{vals} } ) { |
146 | next if $val !~ m{.+:.+}; | next if $val !~ m{.+:.+}; |
147 | my ( $n, $v ) = split(/\s*:\s*/, $val ); | my ( $n, $v ) = split(/\s*:\s*/, $val ); |
148 | push @attrs, { type => $_->{type} . '_' . $n, vals => [ $v ] }; | push @attrs, { type => $attr->{type} . '_' . $n, vals => [ $v ] }; |
149 | } | } |
150 | } | } |
151 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |