This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change svpeek.t to append the VOS executable suffix to $^X
authorPaul Green <Paul.Green@stratus.com>
Wed, 27 Mar 2013 16:12:10 +0000 (12:12 -0400)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 4 Jun 2013 03:30:28 +0000 (20:30 -0700)
ext/XS-APItest/t/svpeek.t

index 59851d3..89fda59 100644 (file)
@@ -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 =
 .