diff options
| author | Paul Green <Paul.Green@stratus.com> | 2013-03-27 12:12:10 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-03 20:30:28 -0700 |
| commit | 4b9f75b3722d4acce7a6bd0e53c151d42dd546c4 (patch) | |
| tree | 77152a07927a2ebb69ed8feb960806cb999fb9e8 /ext | |
| parent | 84a5d26b119b5efb9b6b1c70ebdcbd57e4117b46 (diff) | |
| download | perl-4b9f75b3722d4acce7a6bd0e53c151d42dd546c4.tar.gz | |
change svpeek.t to append the VOS executable suffix to $^X
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/svpeek.t | 5 |
1 files changed, 5 insertions, 0 deletions
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 = . |