Fix previous nit to really do the right thing.

freddrake · freddrake · commit 0bf684545009 · 1998-01-09T16:26:54.000Z
diff --git a/Doc/myformat.perl b/Doc/myformat.perl
@@ -182,7 +182,7 @@ sub my_module_index_helper{
 
 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";
