Diff for /doc/otherfiles/perl_modules.txt between versions 1.10 and 1.13

version 1.10, 2002/02/28 01:45:52 version 1.13, 2002/03/22 20:26:26
Line 205  Sean M. Burke [sburke@cpan.org] Line 205  Sean M. Burke [sburke@cpan.org]
     HTML/Parse.pm      HTML/Parse.pm
   
 ---------------------------------------------- HTML-Parser  ---------------------------------------------- HTML-Parser
 http://www.cpan.org/authors/id/G/GA/GAAS/HTML-Parser-3.25.tar.gz  http://www.cpan.org/authors/id/G/GA/GAAS/HTML-Parser-3.26.tar.gz
 Gisle Aas [gisle@aas.no]  Gisle Aas [gisle@aas.no]
     HTML/Parser.pm 1      HTML/Parser.pm 1
     HTML/TokeParser.pm 1      HTML/TokeParser.pm 1
   
   Need this patches applied:
   
   diff -u HTML-Parser-3.26/hparser.c HTML-Parser-3.26.simpleslashfix/hparser.c
   --- HTML-Parser-3.26/hparser.c Sun Mar 17 15:07:57 2002
   +++ HTML-Parser-3.26.simpleslashfix/hparser.c Fri Mar 22 13:23:17 2002
   @@ -1101,14 +1101,21 @@
        hctype_t tag_name_first, tag_name_char;
        hctype_t attr_name_first, attr_name_char;
    
   -    if (p_state->strict_names || p_state->xml_mode) {
   +    if (p_state->strict_names) {
     tag_name_first = attr_name_first = HCTYPE_NAME_FIRST;
     tag_name_char  = attr_name_char  = HCTYPE_NAME_CHAR;
        }
        else {
   - tag_name_first = tag_name_char = HCTYPE_NOT_SPACE_GT;
   - attr_name_first = HCTYPE_NOT_SPACE_GT;
   - attr_name_char  = HCTYPE_NOT_SPACE_EQ_GT;
   +       if (p_state->xml_mode) {
   +           tag_name_first = tag_name_char = HCTYPE_NOT_SPACE_SLASH_GT;
   +           attr_name_first = HCTYPE_NOT_SPACE_SLASH_GT;
   +           attr_name_char  = HCTYPE_NOT_SPACE_EQ_GT;
   +       }
   +       else {
   +           tag_name_first = tag_name_char = HCTYPE_NOT_SPACE_GT;
   +           attr_name_first = HCTYPE_NOT_SPACE_GT;
   +           attr_name_char  = HCTYPE_NOT_SPACE_EQ_GT;
   +       }
        }
    
        s += 2;
   @@ -1165,8 +1172,11 @@
        else {
     char *word_start = s;
     while (s < end && isHNOT_SPACE_GT(*s)) {
   -    if (p_state->xml_mode && *s == '/')
   - break;
   +                   if (p_state->xml_mode && *s == '/') {
   +                       /* look ahead to see if the tag ends */
   +                       if ((s+1)==end || *(s+1)=='>')
   +                           break;
   +                   }
        s++;
     }
     if (s == end)
   
 ---------------------------------------------- IO-stringy  ---------------------------------------------- IO-stringy
 http://www.cpan.org/authors/id/E/ER/ERYQ/IO-stringy-2.108.tar.gz  http://www.cpan.org/authors/id/E/ER/ERYQ/IO-stringy-2.108.tar.gz
   (needed by MIME-tools)
   
 ---------------------------------------------- MIME-Base64  ---------------------------------------------- MIME-Base64
 http://www.cpan.org/authors/id/G/GA/GAAS/MIME-Base64-2.12.tar.gz  http://www.cpan.org/authors/id/G/GA/GAAS/MIME-Base64-2.12.tar.gz

Removed from v.1.10  
changed lines
  Added in v.1.13


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>