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

(from Tom Christiansen)

p4raw-id: //depot/perl@5777

diff --git a/sv.c b/sv.c
index ff21757..e2b740d 100644 (file)
--- 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";
        }
     }