diff options
| -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"; |