global filehandle changed to lexical

FROGGS · Dec 6, 2010 · 6547dd8 · 6547dd8
1 parent f6a032f
commit 6547dd8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
@@ -3506,8 +3506,8 @@ sub ACTION_install {
 
     $self->log_info("For ActivePerl's PPM: touch '$F_perllocal'\n");
 
-    open PERLLOCAL, ">>$F_perllocal";
-    close PERLLOCAL;
+    open my $perllocal, ">>", $F_perllocal;
+    close $perllocal;
     utime($dt_stamp, $dt_stamp, $F_perllocal);
   }
 }