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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
# vim:ts=4:sw=4:tw=78
# $Id: Build.PL 130 2010-05-12 13:19:58Z trevor $
use 5.006;
use strict;
use Module::Build;
use vars qw($build);
use FindBin;
use lib $FindBin::Bin . '/lib';
$@ = undef;
my @fs;
eval {
require Sys::Filesystem;
my $fs = Sys::Filesystem->new();
@fs = $fs->filesystems();
};
if ($@)
{
printf( STDERR "Can't be used ($@) - OS not supported or bad maintained?" );
exit(0);
}
$build = Module::Build->new(
module_name => 'Sys::Filesystem',
license => 'apache',
dist_author => 'Jens Rehsack <rehsack@cpan.org>',
create_makefile_pl => 'passthrough',
create_readme => 1,
create_packlist => 1,
sign => 0,
requires => {
'perl' => '5.006',
'Carp' => 0,
'FindBin' => 0,
'IO' => 0,
'Module::Pluggable' => '3.9',
'Params::Util' => '1.00',
( $^O eq 'MSWin32' ? ( 'Win32::DriveInfo' => 0, ) : () ),
},
recommends => {
'Test::More' => 0,
'Test::Pod' => 0,
'Test::Pod::Coverage' => 0,
},
);
$build->create_build_script();
# Send perl and module version information home if we've been given
# permission to do so by a human being - default to not send for automated
# testing environments, of if the user does not respond within 20 seconds.
#my $url = $ENV{AUTOMATED_TESTING} ? undef : may_send_version_information();
#if ($url) {
# my @resp = ();
# eval {
# local $SIG{ALRM} = sub { die; };
# alarm 10;
# my $ua = LWP::UserAgent->new(
# agent => 'Build.PL $Revision: 380 $',
# timeout => 9,
# max_size => 500,
# );
# $ua->env_proxy;
# my $response = $ua->get($url);
# if ($response->is_success()) {
# for (split(/\s*\n+\s*/, $response->content())) {
# push @resp, $_ if $_;
# }
# }
# alarm 0;
# };
# print substr($resp[0],0,79) || "Thank you for sending this information.";
# print "\n\n";
#}
#
#sub may_send_version_information {
# eval {
# require Config;
# require LWP::UserAgent;
# };
# return undef if $@;
#
# my $str = sprintf('%s?%s=%s&%s=%s&%s=%s&%s=%s&%s=%s&%s=%s',
# 'http://perlgirl.org.uk/lib/usage.cgi',
# 'name', $build->dist_name(),
# 'version', $build->dist_version(),
# 'osname', $Config::Config{osname},
# 'archname', $Config::Config{archname},
# 'osver', $^O,
# 'perlver', $]
# );
#
# print "\nThank you for downloading ".$build->dist_name()."\n\n";
# print "I would like to find out how many people are using this software,\n";
# print "and on what operating systems and Perl versions. If you have an\n";
# print "internet connection, may I transmit the following information:\n\n";
# print "$str\n\n";
#
# my $send = 0;
# eval {
# local $SIG{ALRM} = sub { die; };
# alarm 20;
# $send = $build->y_n('Send this anonymous information?','n');
# alarm 0;
# };
#
# return $send ? $str : undef;
#}
1;
|
