Index: HTML-Prototype-1.35/Makefile.PL --- HTML-Prototype-1.35/Makefile.PL.orig 2005-10-31 15:21:51 +0100 +++ HTML-Prototype-1.35/Makefile.PL 2005-10-31 15:23:36 +0100 @@ -1,31 +1,9 @@ -# Note: this file was auto-generated by Module::Build::Compat version 0.03 - - unless (eval "use Module::Build::Compat 0.02; 1" ) { - print "This module requires Module::Build to install itself.\n"; - - require ExtUtils::MakeMaker; - my $yn = ExtUtils::MakeMaker::prompt - (' Install Module::Build now from CPAN?', 'y'); - - unless ($yn =~ /^y/i) { - die " *** Cannot install without Module::Build. Exiting ...\n"; - } - - require Cwd; - require File::Spec; - require CPAN; - - # Save this 'cause CPAN will chdir all over the place. - my $cwd = Cwd::cwd(); - my $makefile = File::Spec->rel2abs($0); - - CPAN::Shell->install('Module::Build::Compat') - or die " *** Cannot install without Module::Build. Exiting ...\n"; - - chdir $cwd or die "Cannot chdir() back to $cwd: $!"; - } - eval "use Module::Build::Compat 0.02; 1" or die $@; - use lib '_build/lib'; - Module::Build::Compat->run_build_pl(args => \@ARGV); - require Module::Build; - Module::Build::Compat->write_makefile(build_class => 'Module::Build'); + +require 5.006; +use strict; +use ExtUtils::MakeMaker; + +WriteMakefile( + NAME => 'HTML::Prototype', +); + Index: HTML-Prototype-Useful-0.04/Makefile.PL --- HTML-Prototype-Useful-0.04/Makefile.PL.orig 2005-10-31 15:24:37 +0100 +++ HTML-Prototype-Useful-0.04/Makefile.PL 2005-10-31 15:24:50 +0100 @@ -1,31 +1,9 @@ -# Note: this file was auto-generated by Module::Build::Compat version 0.03 - - unless (eval "use Module::Build::Compat 0.02; 1" ) { - print "This module requires Module::Build to install itself.\n"; - - require ExtUtils::MakeMaker; - my $yn = ExtUtils::MakeMaker::prompt - (' Install Module::Build now from CPAN?', 'y'); - - unless ($yn =~ /^y/i) { - die " *** Cannot install without Module::Build. Exiting ...\n"; - } - - require Cwd; - require File::Spec; - require CPAN; - - # Save this 'cause CPAN will chdir all over the place. - my $cwd = Cwd::cwd(); - my $makefile = File::Spec->rel2abs($0); - - CPAN::Shell->install('Module::Build::Compat') - or die " *** Cannot install without Module::Build. Exiting ...\n"; - - chdir $cwd or die "Cannot chdir() back to $cwd: $!"; - } - eval "use Module::Build::Compat 0.02; 1" or die $@; - use lib '_build/lib'; - Module::Build::Compat->run_build_pl(args => \@ARGV); - require Module::Build; - Module::Build::Compat->write_makefile(build_class => 'Module::Build'); + +require 5.006; +use strict; +use ExtUtils::MakeMaker; + +WriteMakefile( + NAME => 'HTML::Prototype::Useful', +); + Index: XML-LibXML-1.58_1/LibXML.xs --- XML-LibXML-1.58_1/LibXML.xs.orig 2004-03-25 00:06:14 +0100 +++ XML-LibXML-1.58_1/LibXML.xs 2005-10-31 15:21:12 +0100 @@ -622,7 +622,7 @@ HV* real_obj = NULL; SV** item = NULL; SV* item2 = NULL; - /* xmlInitParser(); */ /* useless call */ + xmlInitParser(); xmlGetWarningsDefaultValue = 0; if ( self != NULL ) {