| 291 |
|
if ( $char eq $self->{openquote} ) { |
| 292 |
|
$self->{quotes}=0; |
| 293 |
|
} |
| 294 |
+ |
else { |
| 295 |
+ |
$self->_putstore($char); |
| 296 |
+ |
} |
| 297 |
|
} |
| 298 |
|
# --- Unquoted Context |
| 299 |
|
elsif ( (($char eq "\"") || ($char eq "\'") || ($char eq "\`")) ) { |
| 312 |
|
my $char=shift; |
| 313 |
|
|
| 314 |
|
# Spaces are markers between tags |
| 315 |
< |
if ( $char eq " " ) { |
| 315 |
> |
if ( ($char eq " ") || ($char eq "\n") || ($char eq "\t")) { |
| 316 |
|
$self->_closelabel(); |
| 317 |
|
} |
| 318 |
|
# Check for a change in label status |
| 366 |
|
my $self=shift; |
| 367 |
|
$self->{stringbuff}=""; |
| 368 |
|
} |
| 366 |
– |
|
| 367 |
– |
|
| 368 |
– |
# ---------------------------------------------------------- |
| 369 |
– |
sub context ($key) { |
| 370 |
– |
my $self=shift; |
| 371 |
– |
my $key=shift; |
| 372 |
– |
$key=~tr[A-Z][a-z]; |
| 373 |
– |
return ( ${$self->{ContextHash}}{$key} ); |
| 374 |
– |
} |
| 375 |
– |
|
