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 |
- |
|
|