Permalink
Browse files

Fix bug when printing args with double quotes

  • Loading branch information...
1 parent 7fca551 commit ece5343f8fdb0303467039520f3ffb2bcd02a17d @yiannist yiannist committed Feb 15, 2013
Showing with 3 additions and 2 deletions.
  1. +1 −0 suite/plot.pl
  2. +2 −2 suite/run_bench.erl
View
@@ -48,6 +48,7 @@ sub main {
$ci++;
$token =~ s/^\s+//;
$token =~ s/\s+$//;
+ $token =~ s/\"/\\\"/g;
if ($token && !($ci % 2)) {
if ($ci > 2) {
print PIPE ", ";
View
@@ -61,7 +61,7 @@ main() ->
%% Open the measurements file.
{ok, MF} = file:open(MeasFile, [append]),
- io:format(MF, "~w ", [NS]),
+ io:format(MF, "~p ", [NS]),
{ok, OF} = file:open(OutFile, [write]),
%% Run the benchmark for all argument sets.
@@ -80,7 +80,7 @@ main() ->
end),
receive {done,T} -> T end
end, lists:seq(1,Iterations)),
- io:format(MF, "(~w) ~w ", [Bargs, lists:min(Times)])
+ io:format(MF, "(~p) ~p ", [Bargs, lists:min(Times)])
end,
lists:foreach(Fun, M:bench_args(Version, [{number_of_cores, Cores}])),
file:close(OF),

0 comments on commit ece5343

Please sign in to comment.