The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use Getopt::Long;
use Data::Dumper;
use ExtUtils::MakeMaker;

my $options = {};
my $test_config = {};

GetOptions($options, "extended_tests");

if(defined $options->{extended_tests})
{
	$test_config->{locale} = 1;
}
	
WriteTestConfig($test_config);

WriteMakefile(
	'NAME'		=> 'Date::Handler',
	'VERSION_FROM'	=> 'Handler.pm', 
	'AUTHOR'       => 'Benoit Beausejour <bbeausej\@pobox.com>',
	'clean'        => { 'FILES' => 'pod2htm*', },
	'dist'    	=> { 'PREOP' => 'pod2text Handler.pod > README; pod2html Handler.pod README.html', },
);



sub WriteTestConfig
{
	my $test_config = shift();

	$test_config = Dumper($test_config);

	$test_config =~ s/\$VAR1 \=//g;

	print STDERR "Writing t/config\n";	
	open(CONFIG, ">t/config") || die "Cannot write to t/config: $!";
	print CONFIG $test_config;
	close CONFIG;
}