use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
use File::Basename;
-if ($^O ne "VMS") {
- use File::Glob qw/glob/;
-}
+use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use Test::Harness qw/runtests $switches/;
my $srctop = $ENV{SRCTOP} || $ENV{TOP};