View | Details | Raw Unified | Return to bug 24545
Collapse All | Expand All

(-)a/xt/find-license-problems.t (-2 / +1 lines)
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
- 

Return to bug 24545