|
Lines 45-58
find( { wanted => \&wanted, no_chdir => 1 }, File::Spec->curdir() );
Link Here
|
| 45 |
foreach my $name (@files) { |
45 |
foreach my $name (@files) { |
| 46 |
open( my $fh, '<', $name ) || die "cannot open file $name $!"; |
46 |
open( my $fh, '<', $name ) || die "cannot open file $name $!"; |
| 47 |
my ( |
47 |
my ( |
| 48 |
$hascopyright, $hasgpl, $hasv3, $hasorlater, $haslinktolicense, |
48 |
$hasgpl, $hasv3, $hasorlater, $haslinktolicense, |
| 49 |
$hasfranklinst, $is_not_us |
49 |
$hasfranklinst, $is_not_us |
| 50 |
) = (0) x 7; |
50 |
) = (0) x 7; |
| 51 |
while ( my $line = <$fh> ) { |
51 |
while ( my $line = <$fh> ) { |
| 52 |
$hascopyright = 1 if ( $line =~ /^(#|--)?\s*Copyright.*\d\d/ ); |
52 |
$hasgpl = 1 if ( $line =~ /GNU General Public License/ ); |
| 53 |
$hasgpl = 1 if ( $line =~ /GNU General Public License/ ); |
53 |
$hasv3 = 1 if ( $line =~ /either version 3/ ); |
| 54 |
$hasv3 = 1 if ( $line =~ /either version 3/ ); |
54 |
$hasorlater = 1 |
| 55 |
$hasorlater = 1 |
|
|
| 56 |
if ( $line =~ /any later version/ |
55 |
if ( $line =~ /any later version/ |
| 57 |
|| $line =~ /at your option/ ); |
56 |
|| $line =~ /at your option/ ); |
| 58 |
$haslinktolicense = 1 if $line =~ m|http://www\.gnu\.org/licenses|; |
57 |
$haslinktolicense = 1 if $line =~ m|http://www\.gnu\.org/licenses|; |
|
Lines 60-67
foreach my $name (@files) {
Link Here
|
| 60 |
$is_not_us = 1 if $line =~ m|This file is part of the Zebra server|; |
59 |
$is_not_us = 1 if $line =~ m|This file is part of the Zebra server|; |
| 61 |
} |
60 |
} |
| 62 |
close $fh; |
61 |
close $fh; |
| 63 |
next unless $hascopyright; |
|
|
| 64 |
next if $is_not_us; |
62 |
next if $is_not_us; |
|
|
63 |
next if !$hasgpl; |
| 65 |
is( $hasgpl && $hasv3 && $hasorlater && $haslinktolicense && !$hasfranklinst, 1 ) |
64 |
is( $hasgpl && $hasv3 && $hasorlater && $haslinktolicense && !$hasfranklinst, 1 ) |
| 66 |
or diag( |
65 |
or diag( |
| 67 |
sprintf |
66 |
sprintf |
| 68 |
- |
|
|