[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);