Skip <~> test on VMS

1 files changed, 8 insertions, 5 deletions

diff --git a/t/op/glob.t b/t/op/glob.t
index 3c64353736..f122fa9d28 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;