Re: Réf. : Re: PATCH proposal for ext/Safe/safe2.t

[perl5.git] / lib / English.t

diff --git a/lib/English.t b/lib/English.t
index 745d42e..6e11dcc 100755 (executable)
--- a/lib/English.t
+++ b/lib/English.t
@@ -85,7 +85,7 @@ is( $PERL_VERSION, $^V, '$PERL_VERSION' );
 is( $DEBUGGING, $^D, '$DEBUGGING' );
 
 is( $WARNING, 0, '$WARNING' );
-like( $EXECUTABLE_NAME, qr/perl/, '$EXECUTABLE_NAME' );
+like( $EXECUTABLE_NAME, qr/perl/i, '$EXECUTABLE_NAME' );
 is( $OSNAME, $Config{osname}, '$OSNAME' );
 
 # may be non-portable