Move diag_listed_as entry in gv.c

It wasn’t close enough for diag.t to see it.

2 files changed, 1 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 7d68669789..37c1f9c5f0 100644
--- a/gv.c
+++ b/gv.c
@@ -62,12 +62,12 @@ Perl_gv_add_by_type(pTHX_ GV *gv, svtype type)
 	     */
 	    what = OP_IS_DIRHOP(PL_op->op_type) ?
 		"dirhandle" : "filehandle";
-	    /* diag_listed_as: Bad symbol for filehandle */
 	} else if (type == SVt_PVHV) {
 	    what = "hash";
 	} else {
 	    what = type == SVt_PVAV ? "array" : "scalar";
 	}
+	/* diag_listed_as: Bad symbol for filehandle */
 	Perl_croak(aTHX_ "Bad symbol for %s", what);
     }
 
diff --git a/t/porting/diag.t b/t/porting/diag.t
index 0c68eb725c..8ea3e45f28 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -371,7 +371,6 @@ Malformed UTF-8 character (unexpected non-continuation byte 0x%x, immediately af
 
 %s (%d) does not match %s (%d),
 %s (%d) smaller than %s (%d),
-Bad symbol for %s
 bad top format reference
 Bizarre copy of %s
 Bizarre SvTYPE [%d]