diff options
| author | Fred Drake <fdrake@acm.org> | 1998-01-09 16:26:54 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-01-09 16:26:54 (GMT) |
| commit | 0bf684545009f63efdb660d8bc7e52108ddc2795 (patch) | |
| tree | fce5ae79c3863d7d79db04b8b743fd94dffd9580 /Doc/myformat.perl | |
| parent | 60a3d2788e00e5ea4cbf697de7121ede53fbf811 (diff) | |
| download | cpython-0bf684545009f63efdb660d8bc7e52108ddc2795.zip cpython-0bf684545009f63efdb660d8bc7e52108ddc2795.tar.gz cpython-0bf684545009f63efdb660d8bc7e52108ddc2795.tar.bz2 | |
Fix previous nit to really do the right thing.
Diffstat (limited to 'Doc/myformat.perl')
| -rw-r--r-- | Doc/myformat.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Doc/myformat.perl b/Doc/myformat.perl index 1e1252d..4eaea06 100644 --- a/Doc/myformat.perl +++ b/Doc/myformat.perl @@ -182,7 +182,7 @@ sub do_cmd_refstmodindex{ &my_module_index_helper('standard', @_, 'REF'); } sub do_cmd_nodename{ &do_cmd_label(@_); } -sub do_cmd_mytableofcontents{ &do_cmd_tableofcontents(@_); } +sub do_cmd_mytableofcontents{ local($_) = @_; $_; } $any_next_pair_rx3 = "$O(\\d+)$C([\\s\\S]*)$O\\3$C"; $any_next_pair_rx5 = "$O(\\d+)$C([\\s\\S]*)$O\\5$C"; |