X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0aa703b2c59d48c747246ec784dec6c97b8d77be..5723cfe4740ef994c304e24ebce30a66f58eefb9:/t/run/switches.t?ds=sidebyside

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