diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-23 00:01:07 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-22 21:07:02 +0000 |
| commit | fb24441d6a82db2d4953db0f33fb07df71b278dd (patch) | |
| tree | 15832d049252dadd8d1cf347e05eff9ecc8d2a97 /sv.c | |
| parent | 316fff229640344aaf20a4cc3a8833b7f4162f38 (diff) | |
| download | perl-fb24441d6a82db2d4953db0f33fb07df71b278dd.tar.gz | |
Re: Prototype checking on assignment of coderef to typeglob
Message-Id: <20020222230107.A15069@rafael>
p4raw-id: //depot/perl@14837
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -3752,8 +3752,9 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) GvENAME((GV*)dstr)); } } - cv_ckproto(cv, (GV*)dstr, - SvPOK(sref) ? SvPVX(sref) : Nullch); + if (!intro) + cv_ckproto(cv, (GV*)dstr, + SvPOK(sref) ? SvPVX(sref) : Nullch); } GvCV(dstr) = (CV*)sref; GvCVGEN(dstr) = 0; /* Switch off cacheness. */ |