1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.012.
use strict;
use warnings;
use 5.008001;
use ExtUtils::MakeMaker;
my %WriteMakefileArgs = (
"ABSTRACT" => "Write Perl Subroutines in Other Programming Languages",
"AUTHOR" => "Ingy d\x{f6}t Net <ingy\@cpan.org>",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "Inline",
"LICENSE" => "perl",
"MIN_PERL_VERSION" => "5.008001",
"NAME" => "Inline",
"PREREQ_PM" => {
"Digest::MD5" => 0,
"File::Spec" => "0.8",
"version" => "0.82"
},
"TEST_REQUIRES" => {
"JSON::PP" => 0,
"Test::More" => "0.88",
"Test::Warn" => "0.23"
},
"VERSION" => "0.86",
"test" => {
"TESTS" => "t/*.t"
}
);
my %FallbackPrereqs = (
"Digest::MD5" => 0,
"File::Spec" => "0.8",
"JSON::PP" => 0,
"Test::More" => "0.88",
"Test::Warn" => "0.23",
"version" => "0.82"
);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
delete $WriteMakefileArgs{TEST_REQUIRES};
delete $WriteMakefileArgs{BUILD_REQUIRES};
$WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
use Config;
use File::Find;
my $file = 'inc/bin/testml-cpan';
open IN, '<', $file or die "Can't open '$file' for input";
my @bin = <IN>;
close IN;
shift @bin;
unshift @bin, "#!$Config{perlpath}\n";
open OUT, '>', $file or die "Can't open '$file' for output";
print OUT @bin;
close OUT;
chmod 0755, 'inc/bin/testml-cpan';
if ($^O eq 'MSWin32') {
my $file = 'inc/bin/testml-cpan.cmd';
open OUT, '>', $file or die "Can't open '$file' for output";
print OUT 'if exist "%~dpn0" perl %0 %*', "\r\n";
close OUT;
find sub {
return unless -f && /\.t$/;
my $file = $_;
open IN, '<', $file or die "Can't open '$file' for input";
return unless <IN> =~ /testml-cpan/;
my $text = do {local $/; <IN>};
close IN;
open OUT, '>', $file or die "Can't open '$file' for output";
print OUT '#!inc\\bin\\testml-cpan', "\r\n";
print OUT $text;
close OUT;
}, 't';
}
|
