From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 12 May 2011 10:57:13 +0000 (+0100)
Subject: Use GvFILE_HEK(), if present, in preference to GvFILE()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=15588e9c7fb70244a5b163691b76b39ae42d7550;p=p5sagit%2FDevel-Size.git

Use GvFILE_HEK(), if present, in preference to GvFILE()
---

diff --git a/Size.xs b/Size.xs
index d122757..e72731e 100644
--- a/Size.xs
+++ b/Size.xs
@@ -795,7 +795,9 @@ sv_size(pTHX_ struct state *const st, const SV * const orig_thing,
   case SVt_PVGV: TAG;
     if(isGV_with_GP(thing)) {
 	st->total_size += GvNAMELEN(thing);
-#ifdef GvFILE
+#ifdef GvFILE_HEK
+	hek_size(aTHX_ st, GvFILE_HEK(thing), 1);
+#elif defined(GvFILE)
 #  if !defined(USE_ITHREADS) || (PERL_VERSION > 8 || (PERL_VERSION == 8 && PERL_SUBVERSION > 8))
 	/* With itreads, before 5.8.9, this can end up pointing to freed memory
 	   if the GV was created in an eval, as GvFILE() points to CopFILE(),