regress: Allow to use value with spaces in add_attribute()

diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm
index 57f63816c391a1992a0dd58f4edc58e8ca765f52..b73277637f586c1b7b8b6e19049878efc16eb0af 100644 (file)
--- a/regress/scripts/functions.pm
+++ b/regress/scripts/functions.pm
@@ -727,6 +727,9 @@ sub add_attribute
     my ($cur_obj, $cur_name, $done);
 
     my $is_options = $obj && $obj eq 'Options';
+    if ($value =~ /\s/ && $value !~ m:[/"]:) { # exclude speed from the escape
+        $value = "\"$value\"";
+    }
     open(FP, ">$tmp/1.$$") or die "Can't write to $tmp/1.$$";
     open(SRC, $file) or die "Can't open $file";
     while (my $l = <SRC>)