use ExtUtils::MakeMaker; # Get version from LockDisplay.pm for WriteMakefile. my $pm = 'LockDisplay.pm'; open(V, $pm) or die "Cannot open $pm: $!"; while (defined($_ = )) { last if /^\S+/; } close(V) or die $!; my($v) = /['"]([^'"]+)/; die "Version $v is invalid." unless $v; WriteMakefile( NAME => 'Tk::LockDisplay', DISTNAME => 'Tk-LockDisplay', EXE_FILES => ['tklock'], VERSION => "$v", dist => {COMPRESS => 'gzip', SUFFIX => 'gz'}, ($] >= 5.005 ? (ABSTRACT => 'Screen saver/lock widget with opt. animation', AUTHOR => 'Stephen O. Lidie (sol0@Lehigh.EDU)') : ()), );