This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix error message for re::regnames_iterinit()
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 22 Mar 2007 09:16:37 +0000 (09:16 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 22 Mar 2007 09:16:37 +0000 (09:16 +0000)
p4raw-id: //depot/perl@30679

universal.c

index d4de858..e1ceea1 100644 (file)
@@ -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;