#!/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 ', '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; }