scripts: get_abi.pl: Better handle multiple What parameters

Using a comma here is problematic, as some What: expressions
may already contain a comma. So, use \xac character instead.

Signed-off-by: Mauro Carvalho Chehab <mchehab+huawei@kernel.org>
Link: https://lore.kernel.org/r/e83e7ffaf3429f8dfca00d1d01653ecfa36f6119.1631957565.git.mchehab+huawei@kernel.org
Signed-off-by: Greg Kroah-Hartman <gregkh@linuxfoundation.org>

diff --git a/scripts/get_abi.pl b/scripts/get_abi.pl
index d7aa8209429676c587194ba1f5f4fc543bbee7a6..cfc107df59f4a04c4ea364042f71aa90134f34a4 100755 (executable)
--- a/scripts/get_abi.pl
+++ b/scripts/get_abi.pl
@@ -129,12 +129,12 @@ sub parse_abi {
                                push @{$symbols{$content}->{file}}, " $file:" . ($ln - 1);
 
                                if ($tag =~ m/what/) {
-                                       $what .= ", " . $content;
+                                       $what .= "\xac" . $content;
                                } else {
                                        if ($what) {
                                                parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description});
 
-                                               foreach my $w(split /, /, $what) {
+                                               foreach my $w(split /\xac/, $what) {
                                                        $symbols{$w}->{xref} = $what;
                                                };
                                        }
@@ -239,7 +239,7 @@ sub parse_abi {
        if ($what) {
                parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description});
 
-               foreach my $w(split /, /,$what) {
+               foreach my $w(split /\xac/,$what) {
                        $symbols{$w}->{xref} = $what;
                };
        }
@@ -328,7 +328,7 @@ sub output_rest {
 
                        printf ".. _%s:\n\n", $data{$what}->{label};
 
-                       my @names = split /, /,$w;
+                       my @names = split /\xac/,$w;
                        my $len = 0;
 
                        foreach my $name (@names) {