Blob Blame History Raw
diff -Naur WWW-Form-UrlEncoded-0.23.orig/builder/MyBuilder.pm WWW-Form-UrlEncoded-0.23/builder/MyBuilder.pm
--- WWW-Form-UrlEncoded-0.23.orig/builder/MyBuilder.pm	2015-11-19 01:33:39.000000000 +0100
+++ WWW-Form-UrlEncoded-0.23/builder/MyBuilder.pm	2016-10-23 17:35:54.448797502 +0200
@@ -3,17 +3,17 @@
 use strict;
 use warnings;
 use base qw(Module::Build);
-use File::Spec;
-use File::Path;
-
-sub ACTION_code {
-    my $self = shift;
-    $self->SUPER::ACTION_code();
-    my $archdir = File::Spec->catdir($self->blib,'arch','auto','WWW','Form','UrlEncoded','XS');
-    File::Path::mkpath($archdir, 0, oct(777)) unless -d $archdir;
-    my $keep_arch = File::Spec->catfile($archdir,'.keep');
-    open(my $fh,'>',$keep_arch) or die "Couldnot open file for write: $keep_arch, $!";
-    print $fh "This file required to install files to archdir for backward compatibility\n";
-}
+#use File::Spec;
+#use File::Path;
+#
+#sub ACTION_code {
+#    my $self = shift;
+#    $self->SUPER::ACTION_code();
+#    my $archdir = File::Spec->catdir($self->blib,'arch','auto','WWW','Form','UrlEncoded','XS');
+#    File::Path::mkpath($archdir, 0, oct(777)) unless -d $archdir;
+#    my $keep_arch = File::Spec->catfile($archdir,'.keep');
+#    open(my $fh,'>',$keep_arch) or die "Couldnot open file for write: $keep_arch, $!";
+#    print $fh "This file required to install files to archdir for backward compatibility\n";
+#}
 
 1;