$| = 1;
-print "1..714\n";
+print "1..715\n";
BEGIN {
chdir 't' if -d 't';
print "ok 686\n";
}
+
my $test = 687;
# Force scalar context on the patern match
$x = "\x9b" . "y";
ok ($x =~ /^[\x{09b}y]{2}$/, "\\x{09b} is to be treated as \\x9b");
}
+
+{
+ # high bit bug -- japhy
+ my $x = "ab\200d";
+ $x =~ /.*?\200/ or print "not ";
+ print "ok 715\n";
+}
+