From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 22 Mar 2007 09:16:37 +0000 (+0000)
Subject: Fix error message for re::regnames_iterinit()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2e78f729490ba71b46db9a5852abba3389af433;p=p5sagit%2Fp5-mst-13.2.git

Fix error message for re::regnames_iterinit()

p4raw-id: //depot/perl@30679
---

diff --git a/universal.c b/universal.c
index d4de858..e1ceea1 100644
--- a/universal.c
+++ b/universal.c
@@ -1243,8 +1243,8 @@ XS(XS_re_regnames_iterinit)
 {
     dVAR; 
     dXSARGS;
-    if (items != 0 )
-       Perl_croak(aTHX_ "Usage: %s(%s)", "re::regnames_iterinit");
+    if (items != 0)
+	Perl_croak(aTHX_ "Usage: re::regnames_iterinit()");
     PERL_UNUSED_VAR(cv); /* -W */
     PERL_UNUSED_VAR(ax); /* -Wall */
     SP -= items;