1 files changed, 3 insertions, 0 deletions
diff --git a/pp.c b/pp.c
index cb55181a83..988619f34f 100644
--- a/pp.c
+++ b/pp.c
@@ -599,6 +599,9 @@ PP(pp_gelem)
     case 'F':
 	if (strEQ(elem, "FILEHANDLE")) /* XXX deprecate in 5.005 */
 	    tmpRef = (SV*)GvIOp(gv);
+	else
+	if (strEQ(elem, "FORMAT"))
+	    tmpRef = (SV*)GvFORM(gv);
 	break;
     case 'G':
 	if (strEQ(elem, "GLOB"))