diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-02-14 13:41:07 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-02-18 13:16:52 +0100 |
commit | d9b0428400e46b75ea3feb0763e2b1b1cf02370b (patch) | |
tree | f8492236bf99ce9677d9752e3cec6511f17a8c34 /ext | |
parent | f9246b52626eb7cc5ef0b556b5085f6d3d87a4e1 (diff) | |
download | perl-d9b0428400e46b75ea3feb0763e2b1b1cf02370b.tar.gz |
Add metadata to perlfunc.pod for which version or feature added a function.
Whilst this isn't used (yet), it makes sense to put it in now, before any
external program decides that parsing the private Pod::Function blocks in
perlfunc.pod is fair game, and then becomes dependent on their format.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Pod-Functions/Functions_pm.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Pod-Functions/Functions_pm.PL b/ext/Pod-Functions/Functions_pm.PL index f0ad0bdbc5..c7bb44bec8 100644 --- a/ext/Pod-Functions/Functions_pm.PL +++ b/ext/Pod-Functions/Functions_pm.PL @@ -69,6 +69,8 @@ foreach my $TL_node (@$tree[2 .. $#$tree]) { } } else { $item_text =~ s/ .*//; + # For now, just remove any metadata about when it was added: + $text =~ s/^\+\S+ //; $Flavor{$item_text} = $text; ++$Omit{$item_text} if $text =~ /^!/; } |