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:
parent
e60d50b81e
commit
b4df6fa916
1 changed files with 3 additions and 3 deletions
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue