diff options
| -rw-r--r-- | gv.c | 2 | ||||
| -rw-r--r-- | t/porting/diag.t | 1 |
2 files changed, 1 insertions, 2 deletions
@@ -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] |