development/autotests/xmlParser.pl

   1 #! /usr/bin/env perl
   2
   3 use strict;
   4 use XML::Parser;
   5
   6 my $p1 = XML::Parser->new(Style => 'Debug', ErrorContext => 2, Namespaces => 1);
   7 for my $arg (@ARGV) {
   8   $p1->parsefile($arg);
   9 }
  10
  11 exit(0);