From: Dima Kogan Date: Wed, 27 Aug 2014 22:52:36 -0700 Subject: declawed Makefile.PL Forwarded: not-needed Makefile.PL no longer tries to install gnuplot. Debian can do that for us --- Makefile.PL | 208 ------------------------------------------------------------ 1 file changed, 208 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index 9e7846f..b3eefd3 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -26,213 +26,6 @@ sub MY::libscan } -######################################## -######################################## -# reroute the main POD into a separate README.pod if requested. This is here -# purely to generate a README.pod for the github front page -my $POD_header = <README.pod' or die "Couldn't open README.pod"; - - print README $POD_header; - - while () - { - if (/^=/../^=cut/) - { print README; } - } -} - - -################################################################################ -################################################################################ -## Here we check for a working gnuplot. What better way to do that than by -## executing our own library? - -{ - my $get_msg = ''; - - eval q{ do q{./lib/Alien/Gnuplot.pm}; $get_msg = $@;}; - - unless($get_msg) { - if($Alien::Gnuplot::GNUPLOT_RECOMMENDED_VERSION > $Alien::Gnuplot::version) { - $get_msg = qq{ -Gnuplot seems to exist on your system, but it is version $Alien::Gnuplot::version. -The minimum recommended version is $Alien::Gnuplot::GNUPLOT_RECOMMENDED_VERSION. - -} - } - - } - - if($get_msg) { - print $get_msg ; - - my $install_flag; - - if( (-t STDIN or $^O =~ m/MSWin/) and - ! ( $ENV{AUTOMATED_TESTING} or $ENV{PERL_MM_USE_DEFAULT} ) - ) { - - print "\nGnuplot seems to not exist on your system. Shall I try to install it? [Y/n]> "; - $a = ; - $install_flag = !($a =~ m/^\s*n/i); - - unless($install_flag) { - print qq{ - -Okay, I won't install gnuplot. You can still install the Alien::Gnuplot module, -but it will fail on load until you install the gnuplot executable yourself. - -}; - } - - } else { - - if($ENV{PERL_MM_USE_DEFAULT}) { - $install_flag = 1; - print qq{ - -Gnuplot seems to not exist oon your system, and you set PERL_MM_USE_DEFAULT -- -so I'll try to install it for you. - -}; - } else { - print qq{ - -Gnuplot seems to not exist on your system, and this is not an interactive -session, so I can't ask if you want to install it. I'll install the module, -but it'll fail on load until you install the gnuplot executable yourself. - -}; - } - } - - if($install_flag) { - - print "Attempting to install/upgrade gnuplot on your system....\n\n"; - - if( install_gnuplot_binary() ) { - print "\nGnuplot installation was successful!\n"; - } else { - die qq{ - -Couldn't find gnuplot, and couldn't get it from the standard package managers. -I'd try to download the packages from sourceforge, but there are roadblocks that -make it hard to automate. - -You can get gnuplot from the DOWNLOAD link here: "http://gnuplot.info". - -}; - } # end of binary conditional - } # end of prompt conditional - } # end of get_msg condition -} # end of convenience block - -############################## -############################## -## -## install_gnuplot_binary routine -- called -## from deep in the install conditional above. -## -## The strategy is to try to get a late-model -## binary from the Usual Suspects, and fall back -## to compiling it. -## -## On success, return 1; on failure return 0. -## Try not to crash. - -sub install_gnuplot_binary { - local($|) = 1; - - ############################## - # - if($^O eq 'darwin') { - ############################## - # Binary distros on mac - try macports, fink, homebrew - for my $manager( ['macports','port','http://macports.org'], - ['fink','fink','http://www.finkproject.org'], - ['homebrew','brew','http://mxcl.github.com/homebrew/'] - ) { - print "Trying $manager->[0] (you can get it at $manager->[2])..."; - my $l = `which $manager->[1]`; - if($l) { - print "\n"; - print STDERR `$manager->[1] install gnuplot`; - my $msg; - eval q{ do q{lib/Alien/Gnuplot.pm}; $msg = $@; } ; - - if( (!$msg) and ($Alien::Gnuplot::version >= $Alien::Gnuplot::GNUPLOT_RECOMMENDED_VERSION)) { - print "Success!\n"; - return 1; # Success - return 1 - } else { - return 0; # Failure - give up (once you find one package manager don't use any other) - } - - } else { - print "no $manager->[0]\n"; - } - } # end of manager loop - - return 0; - } # end of macos case - - elsif($^O eq 'linux') { - # The linux package managers generally ask for keyboard feedback (e.g. yum), - # so we have to spawn, exec, and wait to make sure the manager gets that feedback. - - for my $manager( 'yum','apt-get' ) { - print "Trying $manager..."; - my $l = `which $manager`; - - if($l) { - - my $pid = fork(); - die "Couldn't fork!" unless(defined($pid)); - - unless($pid) { - ## daughter - exec "$manager install gnuplot"; - - exit(-1); # never get here - } - - waitpid($pid,0); # wait for the install to finish - - my $msg; - eval q{ do q{lib/Alien/Gnuplot.pm}; $msg = $@ }; - - if( (!$msg) and ($Alien::Gnuplot::version >= $Alien::Gnuplot::GNUPLOT_RECOMMENDED_VERSION) ) { - print "Success!\n"; - return 1; # Success - return 1 - } else { - print "Hmmm, that didn't seem to work.\n"; - return 0; # Failure - give up (once you find one package manager don't use any other) - } - } # end of found-this-manager conditional - } # end of manager loop - - return 0; - } # end of linux case - - else { - return 0; ## We're not a system where we know how to do binary installs - } - -} - - - ############################## ############################## ## Write a generic Makefile that puts the module in place. Include a postamble @@ -248,7 +41,6 @@ WriteMakefile( : ()), PREREQ_PM => { 'Time::HiRes' => 0, 'File::Temp' => 0, - 'HTTP::Tiny' => 0, 'POSIX' => 0, 'File::Spec' => 0