makefile.pl

来自「测试中用于交互的一个脚本.在自动化脚本中会用得到.希望对您有帮助.」· PL 代码 · 共 24 行

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.

my $Is_Beta = 0;

WriteMakefile(
	      'NAME'	     => 'Expect',
	      'VERSION_FROM' => 'Expect.pm',
	      'PREREQ_PM'    => {
                                  'IO::Tty' => 1.03,
                                  'IO::Pty' => 1.03,
				},
	      'clean'        => { 'FILES' => '*.log' },
	      'dist'         => { COMPRESS => 'gzip -9f', SUFFIX => 'gz' },
	      );

print <<'__EOT__' if $Is_Beta;
**********************************************************************
WARNING: this is a BETA version.  If it works, good for you, if not,
tell me, <[e-mail]> about it and I'll see what I can do.
**********************************************************************
__EOT__