/usr/local/CPAN/Perl-Dist/Makefile.PL

• package main
  • check_innosetup
  • pexit
• EOF

use inc::Module::Install 0.91;

check_innosetup() if winlike;

all_from       'lib/Perl/Dist.pm';
requires_from  'lib/Perl/Dist/Inno.pm';
requires       'CPAN'                => '1.9301';
requires       'Win32::File::Object' => '0.01' if winlike;
test_requires  'Test::More'          => '0.86';
test_requires  'Test::Script'        => '1.03';
test_requires  'Test::LongString'    => '0.11';
install_script 'perldist';
install_share;

WriteAll;

# Look for Inno Setup
sub check_innosetup {
	print "Looking for Inno Setup 5... ";
	unless ( $ENV{PROGRAMFILES} and -d $ENV{PROGRAMFILES} ) {
		pexit("Failed to find the Program Files directory\n");
	}
	require File::Spec;
	my $innosetup_dir  = File::Spec->catdir( $ENV{PROGRAMFILES}, "Inno Setup 5" );
	my $innosetup_file = File::Spec->catfile( $innosetup_dir, 'Compil32.exe' );
	unless ( -d $innosetup_dir and -f $innosetup_file ) {
		pexit(
			"failed",
			"",
			"Failed to find an installation of Inno Setup 5",
			"Please install http://www.jrsoftware.org/download.php/is.exe",
		);
	}
	print "OK\n";
}

sub pexit {
	print( map { "$_\n" } ( @_, '' ) );
	exit(0);
}