[interchange-cvs] interchange - heins modified lib/Vend/Parser.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Fri Feb 8 00:23:01 2002
User: heins
Date: 2002-02-08 05:22:40 GMT
Modified: lib/Vend Parser.pm
Log:
* Make XML tag recognition really work, my test was bad.
Revision Changes Path
2.3 +4 -4 interchange/lib/Vend/Parser.pm
rev 2.3, prev_rev 2.2
Index: Parser.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Parser.pm,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -r2.2 -r2.3
--- Parser.pm 7 Feb 2002 21:33:21 -0000 2.2
+++ Parser.pm 8 Feb 2002 05:22:40 -0000 2.3
@@ -1,6 +1,6 @@
# Vend::Parser - Interchange parser class
#
-# $Id: Parser.pm,v 2.2 2002/02/07 21:33:21 mheins Exp $
+# $Id: Parser.pm,v 2.3 2002/02/08 05:22:40 mheins Exp $
#
# Copyright (C) 1997-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -66,7 +66,7 @@
use HTML::Entities ();
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.2 $, 10);
+$VERSION = substr(q$Revision: 2.3 $, 10);
sub new
@@ -244,9 +244,9 @@
# At the end there should be a closing "\] or >"
if ($$buf =~ s|^\]|| ) {
$self->start($tag, \%attr, \@attrseq, "$eaten]");
- } elsif ($$buf =~ s|^/\s*]||) {
+ } elsif ($$buf =~ s|^/\s*\]||) {
## Empty container tag
- $self->start($tag, {}, [], $eaten, 1);
+ $self->start($tag, \%attr, \@attrseq, "$eaten]", 1);
} elsif ($$buf =~ s|^([^\]\n]+\])||) {
$eaten .= $1;
$self->start($tag, {}, [], $eaten);