From 4ca66cf62bd23168ad354a15efa9e79544a249a0 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 27 Jun 2023 22:39:06 +0200
Subject: [PATCH] more debug for gnuplot

---
 lib/MojoFacets/Gnuplot.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/MojoFacets/Gnuplot.pm b/lib/MojoFacets/Gnuplot.pm
index 57dd423..2363fe1 100644
--- a/lib/MojoFacets/Gnuplot.pm
+++ b/lib/MojoFacets/Gnuplot.pm
@@ -39,8 +39,10 @@ sub index {
 		$timefmt_x =~ s/[ T]%H/\\n%H/;
 
 		my $spaces = $timefmt;
-		$spaces =~ s/\S//g;
+		$spaces =~ s/\S+//g;
+warn "# spaces: [$spaces]",dump( $spaces );
 		$spaces = length( $spaces );
+warn "# spaces: $spaces";
 
 		my @plot;
 		foreach ( 1 .. $#$columns ) {
@@ -79,7 +81,7 @@ set format x "$timefmt_x"
 		$g .= "\n\nplot " . join(',', @plot) . "\n";
 		$g =~ s/\n\n+/\n/sg;
 
-#warn "gnuplot $g";
+warn "gnuplot $g";
 
 		open(my $gnuplot, '|-', 'gnuplot') || die "gnuplot $!";
 		print $gnuplot $g;
-- 
2.20.1