5 use ExtUtils::MakeMaker qw(WriteMakefile);
6 use Getopt::Long qw(GetOptions);
13 die "Usage: $0 [--aliases] [--no-programs] [--live-tests]\n";
17 push(@prog, qw(lwp-request lwp-mirror lwp-rget lwp-download))
18 unless $opt{'no-programs'} || grep /^LIB=/, @ARGV;
20 if ($opt{'aliases'} && grep(/lwp-request/, @prog)) {
22 for (qw(GET HEAD POST)) {
23 File::Copy::copy("bin/lwp-request", "bin/$_") || die "Can't copy bin/$_";
24 chmod(0755, "bin/$_");
29 system($^X, "talk-to-ourself");
30 flag_file("t/CAN_TALK_TO_OURSELF", $? == 0);
31 flag_file("t/live/ENABLED", $opt{'live-tests'});
35 DISTNAME => 'libwww-perl',
36 VERSION_FROM => 'lib/LWP.pm',
37 EXE_FILES => [ map "bin/$_", @prog ],
40 'MIME::Base64' => "2.1",
43 'HTML::Parser' => "3.33",
45 'Compress::Zlib' => "1.10",
47 clean => { FILES => join(" ", map "bin/$_", grep /^[A-Z]+$/, @prog) },
58 $(FULLPERL) t/TEST $(TEST_VERBOSE)
65 my($file, $create) = @_;
67 open(my $fh, ">", $file) || die "Can't create $file: $!";