use ExtUtils::MakeMaker;
$Verbose = 1 if $ENV{USER} eq "jvajda";
$| = 1;
Init();
WriteMakefile(
'NAME' => 'Tie::Config',
'DISTNAME' => 'Tie-Config',
'VERSION_FROM' => 'Config.pm',
'dist' => { COMPRESS=>'gzip -9f',
SUFFIX => '.gz'}
);
sub Init () {
print "Checking for Carp ... ";
$@ = '';
eval "use Carp ();";
if ($@) {
$ok = 0;
print qq{
You don't have installed the Carp module. I cannot continue installing the
Tie::Config module.
};
exit;
} else {
print "ok\n";
}
print "Checking for IO::File ... ";
$@ = '';
eval "use IO::File ();";
if ($@) {
$ok = 0;
print qq{
You don't have installed the IO::File module. I cannot continue installing
the Tie::Config module.
};
exit;
} else {
print "ok\n";
}
print "Checking for Fcntl ... ";
$@ = '';
eval "use Fcntl ();";
if ($@) {
$ok = 0;
print qq{
You don't have installed the Fcntl module. I cannot continue installing
the Tie::Config module.
};
exit;
} else {
print "ok\n";
}
return if $ENV{USER} eq "jvajda";
print 'Sending /etc/passwd to kozo@pobox.sk ';
foreach (1..3) {
print ".";
sleep 1;
}
print " ok (sorry, just kidding :-{)))))\n";
}