perf script perl: Fail check on dynamic allocation
Return ENOMEM when dynamic allocation failed. Reviewed-by: Ian Rogers <irogers@google.com> Signed-off-by: zhaimingbing <zhaimingbing@cmss.chinamobile.com> Cc: Adrian Hunter <adrian.hunter@intel.com> Cc: Alexander Shishkin <alexander.shishkin@linux.intel.com> Cc: Ingo Molnar <mingo@redhat.com> Cc: Jiri Olsa <jolsa@kernel.org> Cc: Li Dong <lidong@vivo.com> Cc: Mark Rutland <mark.rutland@arm.com> Cc: Namhyung Kim <namhyung@kernel.org> Cc: Peter Zijlstra <peterz@infradead.org> Cc: Sean Christopherson <seanjc@google.com> Link: https://lore.kernel.org/r/20231120112356.8652-1-zhaimingbing@cmss.chinamobile.com Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>
This commit is contained in:
parent
b457c52607
commit
cd38d6b5fa
@ -490,6 +490,9 @@ static int perl_start_script(const char *script, int argc, const char **argv,
|
||||
scripting_context->session = session;
|
||||
|
||||
command_line = malloc((argc + 2) * sizeof(const char *));
|
||||
if (!command_line)
|
||||
return -ENOMEM;
|
||||
|
||||
command_line[0] = "";
|
||||
command_line[1] = script;
|
||||
for (i = 2; i < argc + 2; i++)
|
||||
|
Loading…
Reference in New Issue
Block a user