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
|
use inc::Module::Install;
name 'mha4mysql-node';
version_from 'lib/MHA/NodeConst.pm';
requires 'DBI';
requires 'DBD::mysql';
license 'GPL v2';
author 'Yoshinori Matsunobu <Yoshinori.Matsunobu@gmail.com>';
if ($ENV{REWRITE_SHEBANG}) {
mkdir 'xbin';
for my $bin (glob 'bin/*') {
(my $xbin = $bin) =~ s{^bin/}{xbin/};
open my $in, '<', $bin or die $!;
open my $out, '>', $xbin or die $!;
while (<$in>) {
s|^#!/usr/bin/env perl|#!perl|; # so MakeMaker can fix it
print $out $_;
}
close $in;
close $out;
}
install_script(glob 'xbin/*');
} else {
install_script(glob 'bin/*');
}
auto_install;
WriteAll;
|
