| 115 |
(0x0041 <= $self->{c} and $self->{c} <= 0x0046) or # A..F |
(0x0041 <= $self->{c} and $self->{c} <= 0x0046) or # A..F |
| 116 |
(0x0061 <= $self->{c} and $self->{c} <= 0x0066) or # a..f |
(0x0061 <= $self->{c} and $self->{c} <= 0x0066) or # a..f |
| 117 |
$self->{c} == 0x003F) { # ? |
$self->{c} == 0x003F) { # ? |
| 118 |
$self->{t}->{value} .= '+' . chr $self->{c}; |
$self->{t}->{value} = chr $self->{c}; |
| 119 |
$self->{t}->{type} = UNICODE_RANGE_TOKEN; |
$self->{t}->{type} = UNICODE_RANGE_TOKEN; |
| 120 |
$self->{c} = $self->{get_char}->(); |
$self->{c} = $self->{get_char}->(); |
| 121 |
C: for (2..6) { |
C: for (2..6) { |