|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/DBD-SQLite-1.14/t/ |
Upload File : |
use Test;
use DBI;
use Fatal qw(open);
my @c_files = <*.c>, <*.xs>;
plan tests => scalar(@c_files);
FILE:
foreach my $file (@c_files) {
open(F, $file);
my $line = 0;
while (<F>) {
$line++;
if (/^(.*)\/\//) {
my $m = $1;
if ($m !~ /\*/ && $m !~ /http:$/) { # skip the // in c++ comment in parse.c
ok(0, 1, "C++ comment in $file line $line");
next FILE;
}
}
}
ok(1,1,"$file has no C++ comments");
close(F);
}