@INC = '../lib';
}
-use Test::More tests => 55;
+use Test::More tests => 58;
use English qw( -no_match_vars ) ;
use Config;
is( $BASETIME, $^T, '$BASETIME' );
is( $PERL_VERSION, $^V, '$PERL_VERSION' );
+is( $OLD_PERL_VERSION, $], '$OLD_PERL_VERSION' );
is( $DEBUGGING, $^D, '$DEBUGGING' );
is( $WARNING, 0, '$WARNING' );
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.