1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

DBD::SQLite: use 3-args open

This commit is contained in:
Kenichi Ishigaki 2009-11-03 17:36:38 +00:00
parent e60d50b81e
commit b4df6fa916

View file

@ -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;
}