use ExtUtils::MakeMaker; use POSIX qw(uname); # Check this is Solaris my ($sys, $rel) = (POSIX::uname())[0,2]; if ($sys ne "SunOS" || $rel !~ /^(5.5.1|5.6|5.7|5.8|5.9)$/) { warn("WARNING: StatsView has been tested on 2.5.1, 2.6, 2.7, 2.8, & 2.9\n", "It may not work on $sys $rel\n\n"); } # Check GNUPlot is installed, and is the correct version if (! grep(-x "$_/gnuplot", split(":", $ENV{PATH}))) { warn("WARNING: GNUPlot not found on your \$PATH\n", "StatsView won't work unless you have GNUPlot installed.\n", "A copy can be found in the gnuplot_src subdirectory\n\n"); } my $hdr = `gnuplot 2>&1 < 'StatsView', 'VERSION_FROM' => 'scripts/sv', 'DIR' => [ 'Graph', 'Oracle' ], 'EXE_FILES' => [ 'scripts/sv', 'scripts/svdc', 'scripts/oar' ], );