Use $Config{_exe}.

p4raw-id: //depot/perl@21220

diff --git a/t/run/switches.t b/t/run/switches.t
index 1c904d4..a63c54b 100644 (file)
--- 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' );
 
 }