From aed7b353ea58b94f27454b873aa880f8f4170bb8 Mon Sep 17 00:00:00 2001
From: Dima Kogan <dkogan@cds.caltech.edu>
Date: Tue, 15 Sep 2009 16:25:13 -0700
Subject: [PATCH] driveGnuPlots can dump its output to stdout for debugging

Ignore-this: 209901071caa48bd58c68edd1fae9eaf

darcs-hash:20090915232513-0cb85-1fe5f99c0825a0ecb48f554b266717140a0f1a36.gz
---
 driveGnuPlots.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/driveGnuPlots.pl b/driveGnuPlots.pl
index d535735..7a7af8e 100755
--- a/driveGnuPlots.pl
+++ b/driveGnuPlots.pl
@@ -40,7 +40,8 @@ GetOptions(\%options,
            "y2max=f",
            "y2=i@",
            "hardcopy=s",
-           "help");
+           "help",
+           "dump");
 
 # set up plotting style
 my $style = "";
@@ -108,7 +109,14 @@ sub mainThread {
     my $dopersist = "";
     $dopersist = "--persist" if(!$options{"stream"});
 
-    open PIPE, "|gnuplot $dopersist" || die "Can't initialize gnuplot\n";
+    if(exists $options{"dump"})
+    {
+      *PIPE = *STDOUT;
+    }
+    else
+    {
+      open PIPE, "|gnuplot $dopersist" || die "Can't initialize gnuplot\n";
+    }
     autoflush PIPE 1;
 
     my $temphardcopyfile;