#!/opt/perl524

use strict;
use warnings;

BEGIN {
    use Test::Compile::Internal;
    no warnings 'redefine';
    *Test::Compile::Internal::all_pl_files = sub {

        my ( $self, @dirs ) = @_;

        @dirs = @dirs ? @dirs : _pl_starting_points();

        my @pl;
        for my $file ( $self->_find_files(@dirs) ) {
            if ( $file =~ /(\.pl|\.psgi|\.cgi)$/i )  # <== Here's my modification.
            {   # Files with .pl or .psgi or .cgi extensions are perl scripts
                push @pl, $file;
            }
            elsif ( $file =~ /(?:^[^.]+$)/ ) {
                # Files with no extension, but a perl shebang are perl scripts
                my $shebang = $self->_read_shebang($file);
                if ( $shebang =~ m/perl/ ) {
                    push @pl, $file;
                }
            }
        }
        return @pl;
    }

} ## end BEGIN

my $test = Test::Compile::Internal->new();

$test->all_files_ok( '/www/cgi-bin' );

$test->done_testing();