openpkg-packages/perl-xml/perl-xml.patch

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 ) {