PT-2275 - "System Summary" graph breaks when perl is not available (OS summary dashboard)

- Added check for Perl binary in lib/bash/parse_options.sh
- Updated tools
- Updated t/lib/bash/parse_options.sh, so it includes required package alt_cmds.sh

bin/pt-ioprofile

@@ -65,6 +65,7 @@ _d () {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -96,6 +97,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo

bin/pt-mext

@@ -106,6 +106,7 @@ rm_tmpdir() {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -137,6 +138,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo

bin/pt-mysql-summary

@@ -67,6 +67,7 @@ _d () {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -98,6 +99,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo

bin/pt-pmp

@@ -108,6 +108,7 @@ rm_tmpdir() {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -139,6 +140,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo

bin/pt-sift

@@ -106,6 +106,7 @@ rm_tmpdir() {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -137,6 +138,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo

bin/pt-stalk

@@ -119,6 +119,7 @@ kill_all_subshells() {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -150,6 +151,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo

bin/pt-summary

@@ -74,6 +74,7 @@ _d () {
 
 
 
+
 set -u
 
 ARGV=""           # Non-option args (probably input files)
@@ -105,6 +106,11 @@ usage_or_errors() {
       return 1
    fi
 
+   if [ -z $(_which perl) ]; then
+      echo "Perl binary required to run this tool"
+      return 1
+   fi
+
    if [ "$OPT_HELP" ]; then
       usage "$file"
       echo