Re: [PATCH 5.8.1 @20218] OS/2 API

[perl5.git] / t / run / switches.t

diff --git a/t/run/switches.t b/t/run/switches.t
index 20d8d69..1c904d4 100644 (file)
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -231,7 +231,7 @@ SWTESTPM
     local $TODO = '';   # these ones should work on VMS
 
     like( runperl( switches => ['-h'] ),
-         qr/Usage: .+perl.+switches.+programfile.+arguments/,
+         qr/Usage: .+(?i:perl(\.exe)?).+switches.+programfile.+arguments/,
           '-h looks okay' );
 
 }