This is getting embarrassing.

p4raw-id: //depot/perl@14209

diff --git a/t/op/pat.t b/t/op/pat.t
index 9318070..19ec634 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..849\n";
+print "1..848\n";
 
 BEGIN {
     chdir 't' if -d 't';