fix perlcritic failure - make bareword filehandle lexical

parrot · Jan 18, 2011 · 8f579d3 · 8f579d3
1 parent 004f53d
commit 8f579d3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/src/embed/api.t b/t/src/embed/api.t
@@ -124,8 +124,8 @@ OUTPUT
 
 my (undef, $temp_pir)  = create_tempfile( SUFFIX => '.pir', UNLINK => 1 );
 my (undef, $temp_pbc)  = create_tempfile( SUFFIX => '.pir', UNLINK => 1 );
-open PIR_FILE, ">", $temp_pir;
-print PIR_FILE <<'PIR_CODE';
+open my $PIR_FILE, ">", $temp_pir;
+print $PIR_FILE <<'PIR_CODE';
 .sub main :main
     .param pmc args
     say "executed"