make attributes::reftype(*FOO{IO}) return "IO" instead of "UNKNOWN"

(from Tom Christiansen)

p4raw-id: //depot/perl@5777

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index ff21757777..e2b740d2df 100644
--- a/sv.c
+++ b/sv.c
@@ -5168,6 +5168,7 @@ Perl_sv_reftype(pTHX_ SV *sv, int ob)
 	case SVt_PVCV:		return "CODE";
 	case SVt_PVGV:		return "GLOB";
 	case SVt_PVFM:		return "FORMAT";
+	case SVt_PVIO:		return "IO";
 	default:		return "UNKNOWN";
 	}
     }