1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Description: no need to install pure perl code into $Config{vendorarch}
Forwarded: not-needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2016-10-23
--- a/builder/MyBuilder.pm
+++ b/builder/MyBuilder.pm
@@ -9,11 +9,11 @@
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";
+# 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;
|
