Change 30679: Fix error message for re::regnames_iterinit()

[Rafael Garcia-Suarez]

Change 30679 by [EMAIL PROTECTED] on 2007/03/22 09:16:37

        Fix error message for re::regnames_iterinit()

Affected files ...

... //depot/perl/universal.c#159 edit

Differences ...

==== //depot/perl/universal.c#159 (text) ====
Index: perl/universal.c
--- perl/universal.c#158~30678~ 2007-03-22 02:01:37.000000000 -0700
+++ perl/universal.c    2007-03-22 02:16:37.000000000 -0700
@@ -1243,8 +1243,8 @@
 {
     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;
End of Patch.