The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!perl
# Test that our files are portable across systems.
use strict;
BEGIN {
BAIL_OUT ('Perl version unacceptably old.') if ($] < 5.008001);
use English qw(-no_match_vars);
$OUTPUT_AUTOFLUSH = 1;
$WARNING = 1;
}
my @MODULES = (
'Test::Portability::Files 0.05',
);
# Load the testing modules
plan( skip_all => "This module is non-portable - nothing to do about it." );
exit(0);
foreach my $MODULE ( @MODULES ) {
eval "use $MODULE";
if ( $EVAL_ERROR ) {
BAIL_OUT( "Failed to load required release-testing module $MODULE" );
}
}
run_tests();