From a1e37b7ea57ea39ee66f22663284999bb9602204 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sat, 8 Dec 2012 14:48:49 +0000 Subject: [PATCH] perl: Use safe_malloc instead of malloc (found by Coverity). --- generator/perl.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generator/perl.ml b/generator/perl.ml index 7e78ca75a..b4c4caf4b 100644 --- a/generator/perl.ml +++ b/generator/perl.ml @@ -458,7 +458,7 @@ user_cancel (g) pr " /* Note av_len returns index of final element. */\n"; pr " len = av_len (av) + 1;\n"; pr "\n"; - pr " r = malloc ((len+1) * sizeof (char *));\n"; + pr " r = guestfs_safe_malloc (g, (len+1) * sizeof (char *));\n"; pr " for (i = 0; i < len; ++i) {\n"; pr " svp = av_fetch (av, i, 0);\n"; pr " r[i] = SvPV_nolen (*svp);\n";