perl plugin: Fixed a memory leak in pplugin_dispatch_notification().

Free the notification meta information that have possibly been allocated in
notification2hv().

diff --git a/src/perl.c b/src/perl.c
index d7087d1f9bcc3e008218fbfa612265f3606d2d21..efb8bdd6aa3db6f898b8e60b9f9f2ee4b109a14c 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -914,6 +914,8 @@ static int pplugin_dispatch_notification (pTHX_ HV *notif)
 {
        notification_t n;
 
+       int ret;
+
        if (NULL == notif)
                return -1;
 
@@ -922,7 +924,9 @@ static int pplugin_dispatch_notification (pTHX_ HV *notif)
        if (0 != hv2notification (aTHX_ notif, &n))
                return -1;
 
-       return plugin_dispatch_notification (&n);
+       ret = plugin_dispatch_notification (&n);
+       plugin_notification_meta_free (&n);
+       return ret;
 } /* static int pplugin_dispatch_notification (HV *) */
 
 /*