Changeset ea215ac

Timestamp:

Nov 27, 2006, 1:16:24 AM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, 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:

• perl/lib/XML/Stream/Parser.pm (modified) (2 diffs)

perl/lib/XML/Stream/Parser.pm

@@ -379 +379 @@
         my $id1 = index($str,"\'");
         my $id2 = index($str,"\"");
+
+        return %attribs if ($id1 == -1 && $id2 == -1);
+
         if((($id1 < $id2) && ($id1 != -1)) || ($id2 == -1))
         {
@@ -384 +387 @@
             $id = "\'";
         }
-        if((($id2 < $id1) && ($id1 == -1)) || ($id2 != -1))
+        if((($id2 < $id1) && ($id2 != -1)) || ($id1 == -1))
         {
             $ids = $id2;