| 1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
| 2 |
use strict; |
use strict; |
| 3 |
|
|
|
my $consume_entity_file_name = 'HTML-consume-entity.src'; |
|
|
|
|
| 4 |
while (<>) { |
while (<>) { |
| 5 |
s/!!!emit\b/return /; |
s/!!!emit\b/return /; |
|
s{!!!consume-entity\}}{ |
|
|
open my $consume_entity_file, '<', $consume_entity_file_name |
|
|
or die "$0: $consume_entity_file_name: $!"; |
|
|
my $r = ''; |
|
|
while (defined (my $l = <$consume_entity_file>)) { |
|
|
$r .= $l unless $l =~ /<javascript:/; |
|
|
} |
|
|
$r; |
|
|
}e; |
|
| 6 |
s{!!!next-input-character;}{q{ |
s{!!!next-input-character;}{q{ |
| 7 |
if (@{$self->{char}}) { |
if (@{$self->{char}}) { |
| 8 |
$self->{next_input_character} = shift @{$self->{char}}; |
$self->{next_input_character} = shift @{$self->{char}}; |
Parent Directory
| 
Revision Log
| 
Patch