#!perl -w use strict; use Getopt::Long qw(GetOptions); use ExtUtils::MakeMaker; my $tclshArg; my $tclsh = "tclsh"; if ($^O eq 'freebsd') {$tclsh.='8.4'} GetOptions("tclsh=s", \$tclshArg, ) || die <] [...] EOT # Allow the tclsh prog to be provided by env var or arg if ($tclshArg) { $tclsh = $tclshArg; } elsif (defined($ENV{'TCLSH_PROG'})) { $tclsh = $ENV{'TCLSH_PROG'}; } WriteMakefile( NAME => "Tcl::Tk", VERSION_FROM => 'lib/Tcl/Tk.pm', NO_META => 1, PREREQ_PM => { Tcl => 0.90, }, );