| commit | 0bf684545009f63efdb660d8bc7e52108ddc2795 | [log] [tgz] |
|---|---|---|
| author | Fred Drake <fdrake@acm.org> | Fri Jan 09 16:26:54 1998 +0000 |
| committer | Fred Drake <fdrake@acm.org> | Fri Jan 09 16:26:54 1998 +0000 |
| tree | fce5ae79c3863d7d79db04b8b743fd94dffd9580 | |
| parent | 60a3d2788e00e5ea4cbf697de7121ede53fbf811 [diff] [blame] |
Fix previous nit to really do the right thing.
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_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";