Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Commit 2eff3c5

Browse files
committed
do_cmd_rfc(): Make the "RFC ###" a hyperlink to the master RFC
repository.
1 parent 782c973 commit 2eff3c5

1 file changed

Lines changed: 7 additions & 4 deletions

File tree

Doc/perl/python.perl

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -193,11 +193,12 @@ sub do_cmd_manpage{
193193
sub do_cmd_rfc{
194194
local($_) = @_;
195195
my($rfcnumber,$br_id) = next_argument();
196-
196+
my $href =
197+
"http://info.internet.isi.edu/in-notes/rfc/files/rfc$rfcnumber.txt";
197198
# Save the reference
198199
my $nstr = gen_index_id("RFC!RFC $rfcnumber", '');
199200
$index{$nstr} .= make_half_href("$CURRENT_FILE#$br_id");
200-
return "<a name=$br_id>RFC $rfcnumber</a>" .$_;
201+
return "<a name=\"$br_id\"\nhref=\"$href\">RFC $rfcnumber</a>" .$_;
201202
}
202203

203204
sub do_cmd_deprecated{
@@ -269,11 +270,13 @@ sub do_cmd_withsubitem{
269270

270271

271272
sub gen_target_name{
272-
return "l2h-" . @_[0];
273+
my($stuff) = @_;
274+
return "l2h-" . $stuff;
273275
}
274276

275277
sub gen_target{
276-
return '<a name="' . @_[0] . '">';
278+
my($name) = @_;
279+
return '<a name="' . $name . '">';
277280
}
278281

279282
sub gen_link{

0 commit comments

Comments
 (0)