This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "UCD.t: Don't use BEL for $/"
[perl5.git] / lib / Unicode / UCD.t
index 9cf235d..648d887 100644 (file)
@@ -19,6 +19,8 @@ use Test::More;
 
 use Unicode::UCD 'charinfo';
 
+$/ = 7;
+
 my $charinfo;
 
 is(charinfo(0x110000), undef, "Verify charinfo() of non-unicode is undef");