simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

DBD::SQLite: use 3-args open

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-11-03 17:36:38 +00:00
parent e60d50b81e
commit b4df6fa916
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
t/29_cppcomments.t
View file

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