bindings/perl-shared/RRDs.xs: fix Coverity CID#13647 Resource leak

        CWE-404 / https://cwe.mitre.org/data/definitions/404.html

diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index 5403f033314dbc070df95af33f2a74351a0f3cde..ed5fc76a77868877a05b04e16ab446661371b635 100644 (file)
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -403,9 +403,11 @@ rrd_graph(...)
                free(argv);
 
                if (rrd_test_error()) {
-                       if(calcpr)
+                       if(calcpr) {
                           for(i=0;calcpr[i];i++)
                                rrd_freemem(calcpr[i]);
+                           rrd_freemem(calcpr);
+                        }
                        XSRETURN_UNDEF;
                }
                retar=newAV();