This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Remove dummy code from const_sv_xsub
authorFather Chrysostomos <sprout@cpan.org>
Fri, 28 Jun 2013 21:24:59 +0000 (14:24 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 28 Jun 2013 21:24:59 +0000 (14:24 -0700)
This was added in commit 9cbac4c7 with no explanation.  It has been
#ifdeffed out since it was added.  That commit was supposedly just for
compiler warnings.  I think this was something else the author was
playing with that got combined in the same patch by mistake.

op.c

diff --git a/op.c b/op.c
index f966018..daef81a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -11980,14 +11980,6 @@ const_sv_xsub(pTHX_ CV* cv)
     dVAR;
     dXSARGS;
     SV *const sv = MUTABLE_SV(XSANY.any_ptr);
     dVAR;
     dXSARGS;
     SV *const sv = MUTABLE_SV(XSANY.any_ptr);
-    if (items != 0) {
-       NOOP;
-#if 0
-       /* diag_listed_as: SKIPME */
-        Perl_croak(aTHX_ "usage: %s::%s()",
-                   HvNAME_get(GvSTASH(CvGV(cv))), GvNAME(CvGV(cv)));
-#endif
-    }
     if (!sv) {
        XSRETURN(0);
     }
     if (!sv) {
        XSRETURN(0);
     }