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
|
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'Inline',
VERSION_FROM => 'Inline.pm',
PREREQ_PM => {
Data::Dumper => 2.09,
Digest::MD5 => 2.09,
Parse::RecDescent => 1.80,
File::Spec => 0.8,
},
clean => {FILES => '_Inline_test _Inline .Inline'},
);
if ($^O =~ /Win32/i) {
print "Fixing Makefile for MSWin32\n";
open MAKEFILE, "< Makefile"
or die "Can't open Makefile for reading";
my @lines = <MAKEFILE>;
close MAKEFILE;
open MAKEFILE, "> Makefile"
or die "Can't open Makefile for writing";
for (@lines) {
print MAKEFILE unless /^\s*((\@\[)|(\]))\s*$/;
}
close MAKEFILE;
}
|
