In the generated Pod::Functions, store all function data with tab separation.

Previously the data was stored with a comma separated list inside a tab
separated list.

1 files changed, 5 insertions, 6 deletions

diff --git a/ext/Pod-Functions/Functions_pm.PL b/ext/Pod-Functions/Functions_pm.PL
index 8d1f17d2ce..e77a40c7ae 100644
--- a/ext/Pod-Functions/Functions_pm.PL
+++ b/ext/Pod-Functions/Functions_pm.PL
@@ -187,10 +187,10 @@ while (<DATA>) {
     chomp;
     s/^#.*//;
     next unless $_;
-    my($name, $type, $text) = split " ", $_, 3;
-    $Type{$name} = $type;
-    $Flavor{$name} = $text;
-    for my $t ( split /[,\s]+/, $type ) {
+    my($name, @data) = split "\t", $_;
+    $Flavor{$name} = pop @data;
+    $Type{$name} = join ',', @data;
+    for my $t (@data) {
         push @{$Kinds{$t}}, $name;
     }
 }
@@ -225,8 +225,7 @@ foreach my $func (sort_funcs(keys %Flavor)) {
     my $desc = $Flavor{$func};
     die "No types listed for $func" unless $Type{$func};
     next if $Omit{$func};
-    my $types = join ',', @{$Type{$func}};
-    print $fh "$func\t$types\t$desc\n";
+    print $fh join("\t", $func, @{$Type{$func}}, $desc), "\n";
 }
 
 close $fh or die "Can't close '$temp': $!";