Ignore:
Timestamp:
Nov 27, 2006, 1:16:24 AM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
fe0a16a
Parents:
95b97e9
Message:
Fixed attribute parser, which resolves LJ-talk problems.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/XML/Stream/Parser.pm

    r0ff8d110 rea215ac  
    379379        my $id1 = index($str,"\'");
    380380        my $id2 = index($str,"\"");
     381
     382        return %attribs if ($id1 == -1 && $id2 == -1);
     383
    381384        if((($id1 < $id2) && ($id1 != -1)) || ($id2 == -1))
    382385        {
     
    384387            $id = "\'";
    385388        }
    386         if((($id2 < $id1) && ($id1 == -1)) || ($id2 != -1))
     389        if((($id2 < $id1) && ($id2 != -1)) || ($id1 == -1))
    387390        {
    388391            $ids = $id2;
Note: See TracChangeset for help on using the changeset viewer.