Improve display of directives.

	* etc/bench.pl.in (parse_term): Don't add useless eol.

diff --git a/ChangeLog b/ChangeLog
index 4216d4297a9f84b6d9d90e796b522f097e35fd09..5e976a75238831586b5a4247225b30501e64c2e5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-11  Akim Demaille  <demaille@gostai.com>
+
+       Improve display of directives.
+       * etc/bench.pl.in (parse_term): Don't add useless eol.
+

 2008-11-11  Akim Demaille  <demaille@gostai.com>
 
        Use string_cast in the bench.
 2008-11-11  Akim Demaille  <demaille@gostai.com>
 
        Use string_cast in the bench.

diff --git a/etc/bench.pl.in b/etc/bench.pl.in
index 1ee98b7f75c7b1d8ffd403ab09b4555e079b76a1..9fae4c4a7dace4185819429e8d1b5e0214f687e2 100755 (executable)
--- a/etc/bench.pl.in
+++ b/etc/bench.pl.in
@@ -995,7 +995,7 @@ sub parse_term ()
         {
           for my $lhs (@lhs)
             {
         {
           for my $lhs (@lhs)
             {

-              push @res, "$lhs\n$rhs";
+              push @res, $lhs . ($lhs && $rhs ? "\n" : "") . $rhs;

             }
         }
     }
             }
         }
     }