From 4b9f75b3722d4acce7a6bd0e53c151d42dd546c4 Mon Sep 17 00:00:00 2001
From: Paul Green <Paul.Green@stratus.com>
Date: Wed, 27 Mar 2013 12:12:10 -0400
Subject: change svpeek.t to append the VOS executable suffix to $^X

---
 ext/XS-APItest/t/svpeek.t | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'ext')

diff --git a/ext/XS-APItest/t/svpeek.t b/ext/XS-APItest/t/svpeek.t
index 59851d3bb4..89fda599c7 100644
--- a/ext/XS-APItest/t/svpeek.t
+++ b/ext/XS-APItest/t/svpeek.t
@@ -47,7 +47,12 @@ like (DPeek ($1), qr'^PVMG\("',			' $1');
   is (DPeek (sub {}),	'\CV(__ANON__)',	'sub {}');
 
 { our ($VAR, @VAR, %VAR);
+if ($^O eq 'vos') {
+  # VOS uses .pm as a required executable suffix
+  open VAR, "<", "$^X.pm" or die "Can't open $^X.pm: $!";
+} else {
   open VAR, "<", $^X or die "Can't open $^X: $!";
+}
   sub VAR {}
   format VAR =
 .
-- 
cgit v1.2.1