diff options
| author | Brandon Black <blblack@gmail.com> | 2007-04-29 12:27:03 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-30 09:22:58 +0000 |
| commit | dd69841bebe1fc7f7a6b248576221520a0418d52 (patch) | |
| tree | 03f70519210b8c576d1dde888623afef3e9882ba /mg.c | |
| parent | 49d7dfbcef7527d25e8c34643f831ef2416923a3 (diff) | |
| download | perl-dd69841bebe1fc7f7a6b248576221520a0418d52.tar.gz | |
Re: mro status, etc
From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60704291527y1b39be37l221ef66e4c828f66@mail.gmail.com>
p4raw-id: //depot/perl@31107
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1925,6 +1925,8 @@ Perl_magic_setglob(pTHX_ SV *sv, MAGIC *mg) GV* gv; PERL_UNUSED_ARG(mg); + Perl_croak(aTHX_ "Perl_magic_setglob is dead code?"); + if (!SvOK(sv)) return 0; if (isGV_with_GP(sv)) { |