Re:

	Forgotten deprecation of *glob{FILEHANDLE}?
Message-Id: <20010923033252.33085.qmail@onion.perl.org>

p4raw-id: //depot/perl@12153

1 files changed, 4 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 5ab80aae7c..eca00c8ec2 100644
--- a/pp.c
+++ b/pp.c
@@ -550,8 +550,11 @@ PP(pp_gelem)
 	    tmpRef = (SV*)GvCVu(gv);
 	break;
     case 'F':
-	if (strEQ(elem, "FILEHANDLE")) /* XXX deprecate in 5.005 */
+	if (strEQ(elem, "FILEHANDLE")) {
+	    /* finally deprecated in 5.8.0 */
+	    deprecate("*glob{FILEHANDLE}");
 	    tmpRef = (SV*)GvIOp(gv);
+	}
 	else
 	if (strEQ(elem, "FORMAT"))
 	    tmpRef = (SV*)GvFORM(gv);