From 4218a421ca4ecaf9f1ccecfe21ebd15cbf499059 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 26 Oct 2011 23:35:55 -0700 Subject: [PATCH] Skip <~> test on VMS --- t/op/glob.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/t/op/glob.t b/t/op/glob.t index 3c64353..f122fa9 100644 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -95,11 +95,14 @@ SKIP: { cmp_ok(scalar(@oops),'>',0,'glob globbed something'); -# This test exists mainly for miniperl, to test that external calls to -# csh, which clear %ENV first, leave $ENV{HOME}. -# On Windows, external glob uses File::DosGlob which returns "~", so this -# should pass anyway. -ok <~>, '~ works'; +SKIP: { + skip "~ globbing returns nothing on VMS", 1 if $^O eq 'VMS'; + # This test exists mainly for miniperl, to test that external calls to + # csh, which clear %ENV first, leave $ENV{HOME}. + # On Windows, external glob uses File::DosGlob which returns "~", so + # this should pass anyway. + ok <~>, '~ works'; +} { my $called; -- 2.7.4