You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2002/03/25 01:47:18 UTC
cvs commit: xml-xerces/perl/samples DOMPrint.pl
jasons 02/03/24 16:47:18
Modified: perl/samples DOMPrint.pl
Log:
* samples/DOMPrint.pl (Repository):
updated for IDOM
Revision Changes Path
1.9 +4 -4 xml-xerces/perl/samples/DOMPrint.pl
Index: DOMPrint.pl
===================================================================
RCS file: /home/cvs/xml-xerces/perl/samples/DOMPrint.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- DOMPrint.pl 10 Oct 2001 20:07:10 -0000 1.8
+++ DOMPrint.pl 25 Mar 2002 00:47:18 -0000 1.9
@@ -87,7 +87,7 @@
* = Default if not provided explicitly
EOU
-my $VERSION = q[$Id: DOMPrint.pl,v 1.8 2001/10/10 20:07:10 jasons Exp $];
+my $VERSION = q[$Id: DOMPrint.pl,v 1.9 2002/03/25 00:47:18 jasons Exp $];
my %OPTIONS;
my $rc = GetOptions(\%OPTIONS,
'v=s',
@@ -124,7 +124,7 @@
$parser->setDoNamespaces ($namespace);
$parser->setCreateEntityReferenceNodes(1);
$parser->setDoSchema ($schema);
-$parser->setToCreateXMLDeclTypeNode(1);
+
my $ERROR_HANDLER = XML::Xerces::PerlErrorHandler->new();
$parser->setErrorHandler($ERROR_HANDLER);
eval {
@@ -142,8 +142,8 @@
XML::Xerces::DOMParse::unformat ($doc);
XML::Xerces::DOMParse::format ($doc);
XML::Xerces::DOMParse::print (\*STDOUT, $doc);
-
-
+exit(0);
__END__
+print STDOUT $doc->serialize();
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org