--- Makefile.PL.orig Thu May 17 18:13:04 2001 +++ Makefile.PL Thu May 17 18:13:22 2001 @@ -6,104 +6,8 @@ require 5.005; } -{ - unless (-d './Install') - { - mkdir './Install', 0755 - or die "can't make dir ./Install: $!"; - } - - my %config; - $config{email_address} = prompt( q[ -To do a full test of the Log::Dispatch::* modules, we need -to attempt to send an email. If you want these tests to -be done please supply an address. -Address?] ); - - $config{syslog} = prompt( q[ -Do you want to test Log::Dispatch::Syslog by sending a message as -daemon.notice? -Yes/No?], 'No' ); - - delete $config{syslog} if $config{syslog} !~ /^y(?:es)?/i; - - if ($config{syslog}) - { - my $default; - foreach ( qw( /var/adm/messages - /var/adm/syslog - /var/log/messages - /var/log/syslog - /var/log/syslog - /etc/log/syslog ) ) - { - if (-e) - { - $default = $_; - last; - } - } - - $config{syslog_file} = prompt('What file would a message sent as daemon.notice end up in?', $default); - - unless (-r $config{syslog_file}) - { - warn "$config{syslog_file} is not readable. Syslog tests will be skipped\n"; - delete $config{syslog}; - delete $config{syslog_file}; - } - } - - open CFG, ">./Install/TestConfig.pm" - or die "can't write to ./Install/TestConfig.pm: $!"; - - print CFG <<"EOF"; -# -# This file was automatically generated by Makefile.PL. Do not -# edit, instead do a "make realclean" in the toplevel directory and -# rerun "perl makefile.PL". -# - -package Install::TestConfig; -EOF - - print CFG "\%config = \n(\n"; - foreach (keys %config) - { - print CFG "\t$_ => '$config{$_}',\n"; - } - print CFG ');'; - close CFG; -} my %extra_pms; -{ - print <<'EOF'; - -Please list any extra modules you would like added as part of this -installation. These should be located somewhere under the Dispatch/ -directory. Please type the path after Dispatch/ (including the .pm -extension). - -Press enter a blank line when you are done. - -EOF - - while (1) - { - chomp (my $module = ); - last unless $module; - - if (-e "./Dispatch/$module") - { - $extra_pms{"Dispatch/$module"} = '$(INST_LIBDIR)/Dispatch/' . $module; - } - else - { - warn "Couldn't find ./Dispatch/$module\n"; - } - } -}