Perl: added deallocation of session in error handling path

ProjectMutilation · bvanassche · commit c92a0eb86a5c · 2023-12-13T08:11:55.000-08:00
Found by RASU JSC

Signed-off-by: Maxim Korotkov &lt;maskorotkov@rasu.ru&gt;
diff --git a/perl/SNMP/SNMP.xs b/perl/SNMP/SNMP.xs
@@ -2803,6 +2803,7 @@ snmp_new_tunneled_session(version, peer, retries, timeout, sec_name, sec_level,
                if (!session.transport_configuration) {
                    fprintf(stderr, "failed to initialize the transport configuration container\n");
                    RETVAL = NULL;
+                   netsnmp_cleanup_session(&session);
                    return;
                }
 

Original file line number	Diff line number	Diff line change
`@@ -2803,6 +2803,7 @@ snmp_new_tunneled_session(version, peer, retries, timeout, sec_name, sec_level,`
`2803`	`2803`	`if (!session.transport_configuration) {`
`2804`	`2804`	`fprintf(stderr, "failed to initialize the transport configuration container\n");`
`2805`	`2805`	`RETVAL = NULL;`
	`2806`	`+ netsnmp_cleanup_session(&session);`
`2806`	`2807`	`return;`
`2807`	`2808`	`}`
`2808`	`2809`