[322] in BarnOwl Developers
[D-O-H] r467 - trunk/owl/perl/lib/XML/Stream
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:04:54 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Mon, 27 Nov 2006 01:16:25 -0500 (EST)
Author: asedeno
Date: 2006-11-27 01:16:24 -0500 (Mon, 27 Nov 2006)
New Revision: 467
Modified:
trunk/owl/perl/lib/XML/Stream/Parser.pm
Log:
Fixed attribute parser, which resolves LJ-talk problems.
Modified: trunk/owl/perl/lib/XML/Stream/Parser.pm
===================================================================
--- trunk/owl/perl/lib/XML/Stream/Parser.pm 2006-11-23 16:50:50 UTC (rev 466)
+++ trunk/owl/perl/lib/XML/Stream/Parser.pm 2006-11-27 06:16:24 UTC (rev 467)
@@ -378,12 +378,15 @@
my $id;
my $id1 = index($str,"\'");
my $id2 = index($str,"\"");
+
+ return %attribs if ($id1 == -1 && $id2 == -1);
+
if((($id1 < $id2) && ($id1 != -1)) || ($id2 == -1))
{
$ids = $id1;
$id = "\'";
}
- if((($id2 < $id1) && ($id1 == -1)) || ($id2 != -1))
+ if((($id2 < $id1) && ($id2 != -1)) || ($id1 == -1))
{
$ids = $id2;
$id = "\"";
