use strict; use warnings; use ExtUtils::MakeMaker; sub parseversion { # grab the version number from the debian changelog file. I look for lines line # # libpackage-perl (0.02) unstable; urgency=low # # I parse out the 0.02 part open DCH, 'debian/changelog' or die "Couldn't open debian/changelog"; my ($version) = =~ /^\S+ \s* \( ([0-9\.]+) \)/x or die "Couldn't parse version from debian/changelog"; close DCH; return $version; } sub MY::libscan { package MY; my ($self, $file) = @_; # Don't install any symlinks (i.e. README.pod) return undef if -l $file; return $self->SUPER::libscan ($file); } WriteMakefile ( NAME => 'feedgnuplot', AUTHOR => q{Dima Kogan }, VERSION => parseversion(), ABSTRACT_FROM => 'bin/feedgnuplot.pod', ($ExtUtils::MakeMaker::VERSION >= 6.3002 ? ('LICENSE' => 'perl') : ()), PL_FILES => {}, EXE_FILES => [ 'bin/feedgnuplot' ], MAN1PODS => { 'bin/feedgnuplot.pod' => 'blib/man1/feedgnuplot.1' }, PREREQ_PM => { 'Test::Script::Run' => 0}, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'feedgnuplot-*' }, );