From 0bf684545009f63efdb660d8bc7e52108ddc2795 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 9 Jan 1998 16:26:54 +0000
Subject: [PATCH] Fix previous nit to really do the right thing.

---
 Doc/myformat.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index 1e1252d363f..4eaea060b66 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";