From b4df6fa9161de2169770074c45ec26ce1d68a652 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 3 Nov 2009 17:36:38 +0000
Subject: [PATCH] DBD::SQLite: use 3-args open

---
 t/29_cppcomments.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/29_cppcomments.t b/t/29_cppcomments.t
index 951234a..e4b88db 100644
--- a/t/29_cppcomments.t
+++ b/t/29_cppcomments.t
@@ -20,9 +20,9 @@ foreach my $file (@c_files) {
         next;
     }
 
-    open(F, $file);
+    open my $fh, '<', $file;
     my $line = 0;
-    while (<F>) {
+    while (<$fh>) {
         $line++;
         if (/^(.*)\/\//) {
             my $m = $1;
@@ -38,5 +38,5 @@ foreach my $file (@c_files) {
         }
     }
     pass("$file has no C++ comments");
-    close(F);
+    close $fh;
 }