From c39fbfb48bc0b8c2c3911ec303ff2ccf62531035 Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Fri, 2 Apr 2010 07:52:05 +0000
Subject: [PATCH] option --keeptempfiles for debugging

---
 tsplot | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tsplot b/tsplot
index bd22c03..75acb7c 100755
--- a/tsplot
+++ b/tsplot
@@ -52,12 +52,14 @@ my $time_t =0;
 my $style = "lines";
 my $tsv   = 0;
 my $stacked = 0;
+my $keeptempfiles;
 GetOptions('output_format|output-format=s' => \$output_format,
 	   'log_y|log-y'		   => \$log_y,
 	   'time_t'			   => \$time_t,
 	   'style:s'			   => \$style,
 	   'tsv'			   => \$tsv,
 	   'stacked'			   => \$stacked,
+	   'keeptempfiles'		   => \$keeptempfiles,
           ) 
     or pod2usage(verbose => 0);
 
@@ -66,6 +68,7 @@ my $sep = $tsv ? qr/\t/ : ' ';
 binmode STDOUT, ':raw';
 
 my $ts = TimeSeries->new(output_format => $output_format);
+$ts->{keeptempfiles} = 1 if $keeptempfiles;
 while (<>) {
     chomp;
     my @legend = split($sep);