10 my $sourcefile = IO::File->new("<$file") or
11 die "can't open $file";
12 my @source = <$sourcefile>;
15 foreach my $line (@source) {
16 if ($line =~ /TODO/i) {
21 print "File: $file\n";
22 foreach my $line (@todos) {
23 if ($line =~ m/TODO(.*)$/i) {
34 opendir(DIR, '.') or die;
35 while (defined($file = readdir(DIR))) {
36 if ($file =~ m/\.(c|h)$/i) {
46 foreach my $file (@ARGV) {
47 if ($file =~ m/\.(c|h)$/) {
54 print $count, " TODOs to go\n";