From: Paul Green <Paul.Green@stratus.com>
Date: Wed, 27 Mar 2013 16:17:53 +0000 (-0400)
Subject: add a special case for VOS handling of argv[0] in magic.t
X-Git-Tag: upstream/5.20.0~3249
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d18d7217818220bb2e51518cd64feb4318101194;p=platform%2Fupstream%2Fperl.git

add a special case for VOS handling of argv[0] in magic.t
---

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;