# ExtUtils::AutoInstall Bootstrap Code, version 4. BEGIN { my $p='ExtUtils::AutoInstall'; my $v=.30; eval "use $p $v; 1" or ($ENV{PERL_EXTUTILS_AUTOINSTALL} !~ /--(?:default|skip|testonly)/ and (-t STDIN) or eval "use ExtUtils::MakeMaker; WriteMakefile('PREREQ_PM'=>{'$p',$v}); 1" and exit) and print "==> $p $v needed. Install it from CPAN? [Y/n] " and !~ /^n/i and print "*** Fetching $p\n" and do { eval {require CPANPLUS; CPANPLUS::install $p}; eval "use $p $v; 1" or eval { require CPAN; CPAN::install $p }; eval "use $p $v; 1" or die "Please install $p $v manually first...\n" } } # pre-install handler; takes $module_name and $version sub MY::preinstall { return 1; } # return false to skip install # post-install handler; takes $module_name, $version, and $success sub MY::postinstall { return 0 } use ExtUtils::AutoInstall ( -version => '0.40', ); WriteMakefile( DISTNAME => 'File-Xcopy-0.12.tar.gz' , ABSTRACT => 'copy files after comparing them.', NAME => 'File::Xcopy' , PREREQ_PM => {Test::Harness => 0.1,IO::File => 1.08,File::Find => 0.01,File::Copy => 2.03,Test::More => 0.45,}, AUTHOR => 'geotiger2001@yahoo.com' , VERSION => 0.12 , );