fix perl warning

diff --git a/ir/be/scripts/generate_emitter_new.pl b/ir/be/scripts/generate_emitter_new.pl
index d97530e..ed868f0 100755 (executable)
--- a/ir/be/scripts/generate_emitter_new.pl
+++ b/ir/be/scripts/generate_emitter_new.pl
@@ -52,7 +52,7 @@ sub create_emitter {
        our %emit_templates;
        our $arch;
 
-       if ($indent_line_func eq "") {
+       if (!defined($indent_line_func)) {
                $template = "\\t" . $template;
        } else {
                push(@{$result}, "${indent}${indent_line_func};\n");