- Active Perl 5.6 cannot cope with "${name}[]" in HERE document, replaced by "${name...

[r26550]

diff --git a/ir/be/scripts/generate_regalloc_if.pl b/ir/be/scripts/generate_regalloc_if.pl
index ac07f7e..9c2cb6f 100755 (executable)
--- a/ir/be/scripts/generate_regalloc_if.pl
+++ b/ir/be/scripts/generate_regalloc_if.pl
@@ -230,7 +230,7 @@ EOF
 
                my $limitedarray = get_limited_array($name);
                $single_constraints .= <<EOF;
-static const unsigned ${arch}_limited_${old_classname}_${name}[] = ${limitedarray};
+static const unsigned ${arch}_limited_${old_classname}_${name} [] = ${limitedarray};
 static const arch_register_req_t ${arch}_single_reg_req_${old_classname}_${name} = {
        arch_register_req_type_limited,
        ${class_ptr},