|
Lines 42-48
sub wanted {
Link Here
|
| 42 |
find({ wanted => \&wanted, no_chdir => 1 }, File::Spec->curdir()); |
42 |
find({ wanted => \&wanted, no_chdir => 1 }, File::Spec->curdir()); |
| 43 |
|
43 |
|
| 44 |
foreach my $name (@files) { |
44 |
foreach my $name (@files) { |
| 45 |
open( FILE, $name ) || return 0; |
45 |
open( FILE, $name ) || die "cannot open file $name $!"; |
| 46 |
my ( $hascopyright, $hasgpl, $hasv3, $hasorlater, $haslinktolicense, |
46 |
my ( $hascopyright, $hasgpl, $hasv3, $hasorlater, $haslinktolicense, |
| 47 |
$hasfranklinst, $is_not_us ) = (0)x7; |
47 |
$hasfranklinst, $is_not_us ) = (0)x7; |
| 48 |
while ( my $line = <FILE> ) { |
48 |
while ( my $line = <FILE> ) { |
| 49 |
- |
|
|