@INC = '../lib';
}
-use Test::More tests => 54;
+use Test::More tests => 57;
use English qw( -no_match_vars ) ;
use Config;
is( $INPLACE_EDIT, '.inplace', '$INPLACE_EDIT' );
'aabbcc' =~ /(.{2}).+(.{2})(?{ 9 })/;
-is( $LAST_PAREN_MATCH, 'cc', '$LAST_PARENT_MATCH' );
+is( $LAST_PAREN_MATCH, 'cc', '$LAST_PAREN_MATCH' );
is( $LAST_REGEXP_CODE_RESULT, 9, '$LAST_REGEXP_CODE_RESULT' );
is( $LAST_MATCH_START[1], 0, '@LAST_MATCH_START' );
main::is( $MATCH, 'b', '$MATCH defined' );
main::is( $POSTMATCH, 'c', '$POSTMATCH defined' );
+{
+ my $s = "xyz";
+ $s =~ s/y/t$MATCH/;
+ main::is( $s, "xtyz", '$MATCH defined in right side of s///' );
+}
+
package C;
use English qw( -no_match_vars ) ;
main::ok( !$MATCH, '$MATCH disabled' );
main::ok( !$POSTMATCH, '$POSTMATCH disabled' );
+
+# Check that both variables change when localized.
+{
+ local $LIST_SEPARATOR = "wibble";
+ ::is $", 'wibble', '$" changes when $LIST_SEPARATOR is localized';
+
+ local $" = 'frooble';
+ ::is $LIST_SEPARATOR, 'frooble';
+}
+
__END__
This is a line.
This is a paragraph.