Changeset 23229

Show
Ignore:
Timestamp:
11/11/08 14:43:04 (5 years ago)
Author:
drry
Message:
  • fixed a regex.
  • fixed some test cases.
Location:
lang/perl/XML-Liberal/trunk
Files:
4 modified
1 moved

Legend:

Unmodified
Added
Removed

  • lang/perl/XML-Liberal/trunk/MANIFEST

    r23119 r23229  
    4242t/bad/BAD-ampersand.xml 
    4343t/bad/BAD-atttibute.xml 
    44 t/bad/BAD-br.xml 
    4544t/bad/BAD-charset.xml 
    4645t/bad/BAD-chr-0.xml 
    … …  
    8786t/bad/BAD-unquoted-nbsp.xml 
    8887t/bad/BAD-unquoted.xml 
     88t/bad/BAD-xhtml-empty-element-tag.xml 

  • lang/perl/XML-Liberal/trunk/lib/XML/Liberal/Remedy/XHTMLEmptyTag.pm

    r23129 r23229  
    77    my $self = shift; 
    88    my($xml_ref) = @_; 
    9     my $match = $$xml_ref =~ s{<(?:br|hr|img|area|base(?:font)?|col|frame|input|isindex|link|meta(?#|param))(?:\s[^>]*)?(?<!/)(?=>)} 
     9    my $match = $$xml_ref =~ s{<(?:area|base(?:font)?|[bh]r|col|frame|img|input|isindex|link|meta(?#|param))(?:\s[^>]*)?(?<!/)(?=>)} 
    1010                              {$& /}g; 
    1111    return 1 if $match; 
    1212 
    13     Carp::carp("Can't find empty <br>, <hr>, <img>, <area>, <base>, <basefont>, <col>, <frame>, <input>, <isindex>, <link> nor <meta> tags: line $self->{line} pos $self->{pos}: $self->{error}"); 
     13    Carp::carp("Can't find empty <area>, <base>, <basefont>, <br>, <hr>, <col>, <frame>, <img>, <input>, <isindex>, <link> nor <meta> tags: line $self->{line} pos $self->{pos}: $self->{error}"); 
    1414    return; 
    1515} 

  • lang/perl/XML-Liberal/trunk/t/bad/BAD-charset.xml

    r23110 r23229  
    1 <?xml version="1.0" encoding="utf-8"?> 
     1<?xml version= "1.0" 
     2encoding ='uTf-8'?> 
    23<foo>�ӂ�������</foo> 

  • lang/perl/XML-Liberal/trunk/t/bad/BAD-undeclared-ns-element.xml

    r23110 r23229  
    11<?xml version="1.0"?> 
     2<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://www.rssboard.org/rss-0.91.dtd"> 
     3<!-- comment node --> 
    24<rss> 
    35<content:encoded>foo</content:encoded> 

  • lang/perl/XML-Liberal/trunk/t/bad/BAD-xhtml-empty-element-tag.xml

    r23110 r23229  
    11<?xml version="1.0"?> 
    2 <xhtml><br><hr><img src="foobar.jpg"></xhtml> 
     2<xhtml><br><hr 
     3><img src="foobar.jpg"></xhtml>