This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.h: Fix error msg
authorKarl Williamson <public@khwilliamson.com>
Sat, 31 Jul 2010 19:57:51 +0000 (13:57 -0600)
committerRafael Garcia-Suarez <rgs@consttype.org>
Wed, 11 Aug 2010 08:23:34 +0000 (10:23 +0200)
op.h

diff --git a/op.h b/op.h
index 7873a74..04fc374 100644 (file)
--- a/op.h
+++ b/op.h
@@ -391,7 +391,7 @@ struct pmop {
 #define PMf_NONDESTRUCT        (1<<(_RXf_PMf_SHIFT+10))
 
 #if _RXf_PMf_SHIFT+10 > 31
-#   error Too many RXf_PMf bits used.  See above and regnodes.h for any spare in middle
+#   error Too many PMf_ bits used.  See above and regnodes.h for any spare in middle
 #endif
 
 /* mask of bits that need to be transfered to re->extflags */