X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEnglish.t;h=6e11dcc686082ec2030b982a881a55211022808d;hb=94efb9fbd94b706aee3772444ecd87b768a706d9;hp=6447affde4ea593d1ac715c94be3e51602990580;hpb=8a945467f8662d3525215e1c48a1b0dace00ef55;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/English.t b/lib/English.t
index 6447aff..6e11dcc 100755
--- 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
@@ -112,13 +112,13 @@ is( $INPUT_LINE_NUMBER, 2, '$INPUT_LINE_NUMBER' );
 
 my %hash;
 $SUBSCRIPT_SEPARATOR = '|';
-$hash{1,2,3} = 1;
+$hash{d,e,f} = 1;
 $SUBSEP = ',';
 $hash{'a', 'b', 'c'} = 1;
 my @keys = sort keys %hash;
 
-is( $keys[0], '1|2|3', '$SUBSCRIPT_SEPARATOR' ); 
-is( $keys[1], 'a,b,c', '$SUBSCRIPT_SEPARATOR' ); 
+is( $keys[0], 'a,b,c', '$SUBSCRIPT_SEPARATOR' ); 
+is( $keys[1], 'd|e|f', '$SUBSCRIPT_SEPARATOR' ); 
 
 eval { is( $EXCEPTIONS_BEING_CAUGHT, 1, '$EXCEPTIONS_BEING_CAUGHT' ) };
 ok( !$EXCEPTIONS_BEING_CAUGHT, '$EXCEPTIONS_BEING_CAUGHT should be false' );