diff options
author | Fred Drake <fdrake@acm.org> | 2000-05-02 17:37:42 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 2000-05-02 17:37:42 (GMT) |
commit | 52e7684af1fb70a806c813372884f4183ce38bb5 (patch) | |
tree | 6a6e0e763d5f2744be32ccfcaa93622487404f25 /Doc/perl | |
parent | e06d025e00e84493b96b1152d1f1f48c751ca729 (diff) | |
download | cpython-52e7684af1fb70a806c813372884f4183ce38bb5.zip cpython-52e7684af1fb70a806c813372884f4183ce38bb5.tar.gz cpython-52e7684af1fb70a806c813372884f4183ce38bb5.tar.bz2 |
do_cmd_versionchanged():
Added support for optional parameter explaining the change
that was made in the specified version.
Diffstat (limited to 'Doc/perl')
-rw-r--r-- | Doc/perl/python.perl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 2866a36..4033c62 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -281,8 +281,13 @@ sub do_cmd_versionadded{ sub do_cmd_versionchanged{ # one parameter: \versionchanged{version} local($_) = @_; + my $explanation = next_optional_argument(); my $release = next_argument(); - return "\nChanged in version $release.\n" . $_; + my $text = "\nChanged in version $release.\n"; + if ($release) { + $text = "\nChanged in version $release:\n$explanation.\n"; + } + return $text . $_; } # |