Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: f6dafc3322
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (17 sloc) 0.352 kB
#!perl -w
use warnings;
use strict;
use Test::More;
use File::Find;
plan 'no_plan';
sub check {
return if (! m{\.pl \z}xms);
my $output = `"$^X" -c $_ 2>&1`;
like( $output, qr/$_ syntax OK/, "$_ compiles" )
}
for (qw(examples bin)) {
if (-d $_) {
find({wanted => \&check, no_chdir => 1}, $_);
}
};
ok "Did not die";
Jump to Line
Something went wrong with that request. Please try again.