#!/opt/perl524

use strict;
use warnings;

use Test::Compile::Internal;

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

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

$test->done_testing();

##</code><code>##

#!/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();

##</code><code>##

sub all_pl_files {
    my ($self, @dirs) = @_;
 
    @dirs = @dirs ? @dirs : _pl_starting_points();
 
    my @pl;
    for my $file ( $self->_find_files(@dirs) ) {
        if ( $file =~ /\.p(?:l|sgi)$/i ) {
            # Files with .pl or .psgi 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;
}