From a09a0aa27722154853871015ad1f231653d101dc Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 14 Sep 2003 06:54:05 +0000
Subject: [PATCH] Use $Config{_exe}.

p4raw-id: //depot/perl@21220
---
 t/run/switches.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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' );
 
 }
-- 
2.7.4