summaryrefslogtreecommitdiff
path: root/ext/Pod-Functions
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2012-01-30 12:27:40 +0100
committerNicholas Clark <nick@ccl4.org>2012-02-18 13:16:52 +0100
commit16538db18cc7422e19490d4a267e9dc8bb6a55e3 (patch)
tree0a7996ce87d82aeb7aad6cd336469d0981c335d4 /ext/Pod-Functions
parentaa1042d8b332e72ca0c4137c5abcf55776e3a1d8 (diff)
downloadperl-16538db18cc7422e19490d4a267e9dc8bb6a55e3.tar.gz
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.
Diffstat (limited to 'ext/Pod-Functions')
-rw-r--r--ext/Pod-Functions/Functions_pm.PL11
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': $!";