From 1b3fdaa96ef5da050a41400dc900c17fa6f0f0ce Mon Sep 17 00:00:00 2001
From: Dima Kogan <dkogan@cds.caltech.edu>
Date: Thu, 3 Feb 2011 13:47:56 -0800
Subject: [PATCH] I fail out if my perl isn't threaded. This makes me pass cpan
 testers' tests

---
 bin/feedGnuplot | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/bin/feedGnuplot b/bin/feedGnuplot
index 2706688..dd03af1 100755
--- a/bin/feedGnuplot
+++ b/bin/feedGnuplot
@@ -5,10 +5,20 @@ use Getopt::Long;
 use Time::HiRes qw( usleep );
 use IO::Handle;
 use List::MoreUtils qw( first_index );
+use Text::ParseWords;
+
+use Config;
+if (! $Config{'useithreads'})
+{
+  say "I require a threaded perl";
+  exit(0);
+}
+
 use threads;
 use threads::shared;
 use Thread::Queue;
-use Text::ParseWords;
+
+
 
 our $VERSION = '1.05';