#!perl -w
use strict;
use warnings;
use Test::More tests => 1;
use Test::Compile;
# cheap emulation
$^O = 'VMS';
Test::Compile::_verbose(0);
pl_file_ok('t/scripts/subdir/success.pl', 'success.pl compiles');
#!perl -w
use strict;
use warnings;
use Test::More tests => 1;
use Test::Compile;
# cheap emulation
$^O = 'VMS';
Test::Compile::_verbose(0);
pl_file_ok('t/scripts/subdir/success.pl', 'success.pl compiles');