add a special case for VOS handling of argv[0] in magic.t
authorPaul Green <Paul.Green@stratus.com>
Wed, 27 Mar 2013 16:17:53 +0000 (12:17 -0400)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 4 Jun 2013 03:30:29 +0000 (20:30 -0700)
t/op/magic.t

index 26b5b04..b7ce3ae 100644 (file)
@@ -342,7 +342,11 @@ EOF
     if ($Is_MSWin32 || $Is_os2) {
        is uc $_, uc $s1;
     } else {
-       is $_, $s1;
+  SKIP:
+     {
+         skip "# TODO: Hit bug posix-2058; exec does not setup argv[0] correctly." if ($^O eq "vos");
+         is $_, $s1;
+     }
     }
     $_ = `$perl $script`;
     s/\.exe//i if $Is_Dos or $Is_os2 or $Is_Cygwin;