diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-14 06:54:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-14 06:54:05 +0000 |
| commit | a09a0aa27722154853871015ad1f231653d101dc (patch) | |
| tree | 6a448dc53f17e3e65b0aa9dd83de34445b6805d5 /t/run | |
| parent | 5723cfe4740ef994c304e24ebce30a66f58eefb9 (diff) | |
| download | perl-a09a0aa27722154853871015ad1f231653d101dc.tar.gz | |
Use $Config{_exe}.
p4raw-id: //depot/perl@21220
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switches.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 1c904d47f4..a63c54b9f5 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' ); } |