strat settings csv fix

xFFFFF · Apr 28, 2018 · c744320 · c744320
1 parent 920c039
commit c744320
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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+//;