summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2012-02-14 13:41:07 +0100
committerNicholas Clark <nick@ccl4.org>2012-02-18 13:16:52 +0100
commitd9b0428400e46b75ea3feb0763e2b1b1cf02370b (patch)
treef8492236bf99ce9677d9752e3cec6511f17a8c34 /ext
parentf9246b52626eb7cc5ef0b556b5085f6d3d87a4e1 (diff)
downloadperl-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.PL2
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 =~ /^!/;
}