This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make t/porting/buildtoc.t use runperl for portability.
authorCraig A. Berry <craigberry@mac.com>
Tue, 25 Jan 2011 00:58:35 +0000 (18:58 -0600)
committerCraig A. Berry <craigberry@mac.com>
Tue, 25 Jan 2011 00:58:35 +0000 (18:58 -0600)
t/porting/buildtoc.t

index 47fa4a7..4fbcac9 100644 (file)
@@ -6,6 +6,10 @@ BEGIN {
 }
 
 use strict;
 }
 
 use strict;
+require 't/test.pl';
 
 
-my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
-system("${dotslash}perl -f -Ilib -I../lib pod/buildtoc --build-toc -q --test --build-all");
+my $result = runperl(switches => ['-f', '-Ilib'], 
+                     progfile => 'pod/buildtoc', 
+                     args     => ['--build-toc', '-q', '--test', '--build-all']);
+
+print $result;