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:48:21 UTC
cvs commit: xml-xerces/perl/samples DOMCount.pl
jasons 02/03/24 16:48:21
Modified: perl/samples DOMCount.pl
Log:
* samples/DOMCount.pl (Repository):
modified ouput somewhat
Revision Changes Path
1.12 +4 -3 xml-xerces/perl/samples/DOMCount.pl
Index: DOMCount.pl
===================================================================
RCS file: /home/cvs/xml-xerces/perl/samples/DOMCount.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- DOMCount.pl 10 Oct 2001 20:05:46 -0000 1.11
+++ DOMCount.pl 25 Mar 2002 00:48:21 -0000 1.12
@@ -83,7 +83,7 @@
* = Default if not provided explicitly
EOU
-my $VERSION = q[$Id: DOMCount.pl,v 1.11 2001/10/10 20:05:46 jasons Exp $ ];
+my $VERSION = q[$Id: DOMCount.pl,v 1.12 2002/03/25 00:48:21 jasons Exp $ ];
my $rc = GetOptions(\%OPTIONS,
'v=s',
@@ -127,7 +127,7 @@
my $t0 = new Benchmark;
eval {
- $parser->parse (XML::Xerces::LocalFileInputSource->new($file));
+ $parser->parse ($file);
};
if ($@) {
if (ref $@) {
@@ -141,7 +141,8 @@
my $t1 = new Benchmark;
my $td = timediff($t1, $t0);
-print STDOUT "$file: ($element_count elems)\n";
print STDOUT "$file: duration: ", timestr($td), "\n";
+print STDOUT "\t($element_count elems)\n";
+
__END__
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org