From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 14 Sep 2003 06:54:05 +0000 (+0000)
Subject: Use $Config{_exe}.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a09a0aa27722154853871015ad1f231653d101dc;p=p5sagit%2Fp5-mst-13.2.git

Use $Config{_exe}.

p4raw-id: //depot/perl@21220
---

diff --git a/t/run/switches.t b/t/run/switches.t
index 1c904d4..a63c54b 100644
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -13,6 +13,8 @@ require "./test.pl";
 
 plan(tests => 26);
 
+use Config;
+
 # due to a bug in VMS's piping which makes it impossible for runperl()
 # to emulate echo -n (ie. stdin always winds up with a newline), these 
 # tests almost totally fail.
@@ -218,7 +220,6 @@ SWTESTPM
     local $TODO = '';   # these ones should work on VMS
 
     my $v = sprintf "%vd", $^V;
-    use Config;
     like( runperl( switches => ['-v'] ),
 	  qr/This is perl, v$v built for $Config{archname}.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
           '-v looks okay' );
@@ -231,7 +232,7 @@ SWTESTPM
     local $TODO = '';   # these ones should work on VMS
 
     like( runperl( switches => ['-h'] ),
-	  qr/Usage: .+(?i:perl(\.exe)?).+switches.+programfile.+arguments/,
+	  qr/Usage: .+(?i:perl(?:$Config{_exe})?).+switches.+programfile.+arguments/,
           '-h looks okay' );
 
 }