X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=4187c18c7bd86078f74eb497822aff71f075944b;hb=42d0e0b77a1ef47b81ab3e346a1a4dc0af5b9bec;hp=1c8d9817414b525818377e021b83e92cc19edd6b;hpb=e7f343b6de977b5993b7a5a4707f5051ea388ff2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index 1c8d981..4187c18 100644
--- a/gv.c
+++ b/gv.c
@@ -204,6 +204,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 	case SVt_PVIO:
             Perl_croak(aTHX_ "Cannot convert a reference to %s to typeglob",
 		       sv_reftype(has_constant, 0));
+	default: NOOP;
 	}
 	SvRV_set(gv, NULL);
 	SvROK_off(gv);