| Subject: | Patch for to work with XML::SAX |
The attached patch allows people to build and test this module with the newer XML::SAX interface. I avoid XML::Parser.
diff -u XML-Handler-YAWriter-0.23/Makefile.PL XML-Handler-YAWriter-patch/Makefile.PL
--- XML-Handler-YAWriter-0.23/Makefile.PL Fri Feb 23 21:31:42 2001
+++ XML-Handler-YAWriter-patch/Makefile.PL Wed Feb 19 15:17:24 2003
@@ -6,7 +6,6 @@
'VERSION_FROM' => 'YAWriter.pm',
'EXE_FILES' => [ 'xmlpretty' ],
'PREREQ_PM' => {
- 'XML::Parser::PerlSAX' => 0.06,
'IO::File' => 1.06
}
);
diff -u XML-Handler-YAWriter-0.23/test.pl XML-Handler-YAWriter-patch/test.pl
--- XML-Handler-YAWriter-0.23/test.pl Thu Jun 28 04:46:31 2001
+++ XML-Handler-YAWriter-patch/test.pl Wed Feb 19 15:14:48 2003
@@ -9,7 +9,7 @@
BEGIN { $| = 1; print "1..5\n"; }
END {print "not ok 1\n" unless $loaded;}
use XML::Handler::YAWriter;
-use XML::Parser::PerlSAX;
+use XML::SAX;
use IO::File;
$loaded = 1;
print "ok 1\n";
@@ -25,7 +25,7 @@
'Output' => $xml_file,
'Pretty' => { 'CatchWhiteSpace' => 1 }
);
-my $parser = new XML::Parser::PerlSAX( 'Handler' => $handler );
+my $parser = XML::SAX::ParserFactory->parser( 'Handler' => $handler );
$parser->parse( 'Source' => { 'SystemId' => 'linux.1.xml' } );
$xml_file->close();