[Small optimization] perl compiler: Change 'my = undef;' to 'my ;'

perlancar · Mar 26, 2015 · 728eeb5 · 728eeb5
1 parent ffd2fcb
commit 728eeb5
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Data/Sah/Compiler/perl.pm b/lib/Data/Sah/Compiler/perl.pm
@@ -197,7 +197,11 @@ sub block_uses_sub { 0 }
 
 sub stmt_declare_local_var {
     my ($self, $v, $vt) = @_;
-    "my \$$v = $vt;";
+    if ($vt eq 'undef') {
+        "my \$$v;";
+    } else {
+        "my \$$v = $vt;";
+    }
 }
 
 sub expr_anon_sub {