perl plugin: Emit a warning when accessing $interval_g.

Rather, point to plugin_get_interval().

diff --git a/src/perl.c b/src/perl.c
index 924cb63fe195d018517f4c361f5b10ed848c5996..57ea71231d53a15dbc3220128b2d4429b8654fcc 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -2120,6 +2120,9 @@ static int g_pv_set (pTHX_ SV *var, MAGIC *mg)
 
 static int g_interval_get (pTHX_ SV *var, MAGIC *mg)
 {
+       log_warn ("Accessing $interval_g is deprecated (and might not "
+                       "give the desired results) - plugin_get_interval() should "
+                       "be used instead.");
        sv_setnv (var, CDTIME_T_TO_DOUBLE (interval_g));
        return 0;
 } /* static int g_interval_get (pTHX_ SV *, MAGIC *) */
@@ -2127,6 +2130,9 @@ static int g_interval_get (pTHX_ SV *var, MAGIC *mg)
 static int g_interval_set (pTHX_ SV *var, MAGIC *mg)
 {
        double nv = (double)SvNV (var);
+       log_warn ("Accessing $interval_g is deprecated (and might not "
+                       "give the desired results) - plugin_get_interval() should "
+                       "be used instead.");
        interval_g = DOUBLE_TO_CDTIME_T (nv);
        return 0;
 } /* static int g_interval_set (pTHX_ SV *, MAGIC *) */