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;