Changeset 2340

Show
Ignore:
Timestamp:
09/15/07 09:44:12
Author:
miyagawa
Message:

don't escape utf-8 characters in WARN and 's' on scraper shell

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Web-Scraper/trunk/bin/scraper

    r2335 r2340  
    1010use YAML; 
    1111 
    12 sub WARN() { return sub { warn $_->as_HTML } } 
     12sub WARN() { return sub { warn $_->as_HTML(q('"&<>), "", {}) } } 
    1313 
    1414my(@stack, $source); 
     
    4848            warn Dump result; 
    4949        } elsif ($in eq 's') { 
    50             warn $tree->as_HTML(undef, "  ", {}); 
     50            warn $tree->as_HTML(q('"&<>), "  ", {}); 
    5151        } elsif ($in eq 'q') { 
    5252            return;