This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Updating the test count is good; also rephrasing
[perl5.git] / t / op / pat.t
index f7e9a61..9318070 100755 (executable)
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..847\n";
+print "1..849\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2621,7 +2621,7 @@ print "# some Unicode properties\n";
 }
 
 {
-    print "# . with /s should work on characters, not bytes\n";
+    print "# . with /s should work on characters, as opposed to bytes\n";
 
     my $s = "\x{e4}\x{100}";