From d18d7217818220bb2e51518cd64feb4318101194 Mon Sep 17 00:00:00 2001
From: Paul Green <Paul.Green@stratus.com>
Date: Wed, 27 Mar 2013 12:17:53 -0400
Subject: [PATCH] add a special case for VOS handling of argv[0] in magic.t

---
 t/op/magic.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/op/magic.t b/t/op/magic.t
index 26b5b04..b7ce3ae 100644
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -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;
-- 
2.7.4