more cleanup: avoid unused knowledge of "file GV" notion in CV and GV

p4raw-id: //depot/perl@4485

1 files changed, 4 insertions, 2 deletions

diff --git a/sv.h b/sv.h
index e99891dd22..116f17828a 100644
--- a/sv.h
+++ b/sv.h
@@ -276,8 +276,10 @@ struct xpvfm {
     void      (*xcv_xsub)(pTHXo_ CV*);
     ANY		xcv_xsubany;
     GV *	xcv_gv;
-    GV *	xcv_filegv;
-    long	xcv_depth;		/* >= 2 indicates recursive call */
+#if defined(PERL_BINCOMPAT_5005)
+    GV *	xcv_filegv;	/* XXX unused (and deprecated) */
+#endif
+    long	xcv_depth;	/* >= 2 indicates recursive call */
     AV *	xcv_padlist;
     CV *	xcv_outside;
 #ifdef USE_THREADS