Parent Directory
| 
Revision Log
| 
Patch
| revision 1.17 by wakaba, Mon Sep 15 08:09:39 2008 UTC | revision 1.18 by wakaba, Mon Sep 15 09:02:27 2008 UTC | |
|---|---|---|
| # | Line 6 my $DEBUG = $ENV{DEBUG}; | Line 6 my $DEBUG = $ENV{DEBUG}; |
| 6 | while (<>) { | while (<>) { |
| 7 | s/!!!emit\b/return /; | s/!!!emit\b/return /; |
| 8 | s{!!!next-input-character;}{q{ | s{!!!next-input-character;}{q{ |
| pop @{$self->{prev_char}}; | ||
| unshift @{$self->{prev_char}}, $self->{nc}; | ||
| 9 | if ($self->{char_buffer_pos} < length $self->{char_buffer}) { | if ($self->{char_buffer_pos} < length $self->{char_buffer}) { |
| 10 | $self->{line_prev} = $self->{line}; | $self->{line_prev} = $self->{line}; |
| 11 | $self->{column_prev} = $self->{column}; | $self->{column_prev} = $self->{column}; |
|
||||||||
| [email protected] | ViewVC Help |
| Powered by ViewVC 1.1.24 |