From c74432040212914df2e0029aab3347449f5ac0ac Mon Sep 17 00:00:00 2001
From: xFFFFF <tutenhamond@gmail.com>
Date: Sat, 28 Apr 2018 10:18:12 +0200
Subject: [PATCH] strat settings csv fix

---
 backtest.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/backtest.pl b/backtest.pl
index ad963a8..03fbf01 100755
--- a/backtest.pl
+++ b/backtest.pl
@@ -1179,8 +1179,9 @@ sub toepoch {
         $gconfig =~ s/}(?=\nconfig.performanceAnalyzer)/}\n$stratconfig{$stratn}/m;
         my @strat = $gconfig =~ /(?<=config.tutajbylazmienna = \{)(.*?)(?=};)/s;
         my $stratcvs = 'NA';
+
         if (length $stratconfig{$stratn} > 3) {
-          my $stratcvs = $stratconfig{$stratn};
+          $stratcvs = $stratconfig{$stratn};
           my $toml;
           $stratcvs =~ s/config..*= //g;
           $stratcvs = &convert_json_toml($stratcvs);
@@ -1192,7 +1193,6 @@ sub toepoch {
           $stratcvs =~ s/'//;
         }
         #$stratcvs =~ s/$/"/;
-
         $strat[0] =~ s/[\n\t]/ /g;
         $strat[0] =~ s/  / /g;
         $strat[0] =~ s/^\s+//;