From 6a03eaf43f0f7f56d0ba35017b174212281576f9 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 5 Aug 2015 09:43:08 -0700
Subject: [PATCH] avoid using Pod::Simple because biocluster doesn't have it
 installed in the system perl

---
 dqsub | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/dqsub b/dqsub
index e0b9744..3299b46 100755
--- a/dqsub
+++ b/dqsub
@@ -10,7 +10,7 @@ use warnings;
 use strict;
 
 use Getopt::Long;
-use Pod::Usage;
+# use Pod::Usage;
 
 =head1 NAME
 
@@ -101,8 +101,8 @@ GetOptions(\%options,
            'dir=s',
            'debug|d+','help|h|?','man|m');
 
-pod2usage() if $options{help};
-pod2usage({verbose=>2}) if $options{man};
+# pod2usage() if $options{help};
+# pod2usage({verbose=>2}) if $options{man};
 
 $DEBUG = $options{debug};
 
@@ -121,7 +121,8 @@ if ($options{interactive} and @ARGV) {
     push @USAGE_ERRORS,"Don't provide commands when you're asking for an interactive shell";
 }
 
-pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
+# pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
+print STDERR join("\n",@USAGE_ERRORS) and exit 1 if @USAGE_ERRORS;
 
 # OK. Generate the options to qsub which we'll be using
 my @qsub_options = generate_qsub_options(\%options);
-- 
2.39.5