This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip <~> test on VMS
authorFather Chrysostomos <sprout@cpan.org>
Thu, 27 Oct 2011 06:35:55 +0000 (23:35 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 27 Oct 2011 06:37:19 +0000 (23:37 -0700)
t/op/glob.t

index 3c64353..f122fa9 100644 (file)
@@ -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;