From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 17 Mar 2000 04:13:27 +0000 (+0000)
Subject: make attributes::reftype(*FOO{IO}) return "IO" instead of "UNKNOWN"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27f9d8f3098a41d6bcd7d561e3deabbf17bc0dd6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 	}
     }