This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/feature/implicit: Generalize for non-ASCII platforms
authorKarl Williamson <public@khwilliamson.com>
Tue, 21 May 2013 03:54:01 +0000 (21:54 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:27 +0000 (21:48 -0700)
t/lib/feature/implicit

index a741421..99ab011 100644 (file)
@@ -107,9 +107,10 @@ b
 ########
 # Implicit unicode_string feature
 use v5.14;
-print 'ss' =~ /\xdf/i ? "ok\n" : "nok\n";
+my $sharp_s = chr utf8::unicode_to_native(0xdf);
+print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n";
 use v5.8.8;
-print 'ss' =~ /\xdf/i ? "ok\n" : "nok\n";
+print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n";
 EXPECT
 ok
 nok