6 files changed, 141 insertions, 141 deletions

diff --git a/test/etags/CTAGS.good b/test/etags/CTAGS.good
index ebde715272a..19bc0bef657 100644
--- a/test/etags/CTAGS.good
+++ b/test/etags/CTAGS.good
@@ -305,8 +305,6 @@ BUFFER_OBJFWDP	c-src/emacs/src/lisp.h	/^BUFFER_OBJFWDP (union Lisp_Fwd *a)$/
 BYTE_MARK_STACK c-src/emacs/src/lisp.h  3181
 Bar     lua-src/test.lua        /^function Square.something:Bar ()$/
 Bar     perl-src/kai-test.pl    /^package Bar;$/
-Bar::f4 perl-src/kai-test.pl    /^sub Bar::f4 {$/
-Bar::f5 perl-src/kai-test.pl    /^sub f5 {$/
 Barrier_Function_Pointer/t      ada-src/etags-test-for.ada      /^   type Barrier_Function_Pointer is access$/
 Bidule/b        ada-src/etags-test-for.ada      /^  protected body Bidule is$/
 Bidule/b        ada-src/waroquiers.ada  /^  protected body Bidule is$/
@@ -614,8 +612,6 @@ Finalize_TAS_Cell/p	ada-src/2ataspri.ads	/^   procedure Finalize_TAS_Cell   (Cel
 First100Chars   pas-src/common.pas      /^procedure First100Chars; (*($/
 Foo     perl-src/kai-test.pl    /^package Foo;$/
 Foo::Bar        perl-src/kai-test.pl    /^package Foo::Bar;$/
-Foo::Bar::f6    perl-src/kai-test.pl    /^sub f6 {$/
-Foo::f3 perl-src/kai-test.pl    /^sub f3 {$/
 Forth_help      c-src/etags.c   573
 Forth_suffixes  c-src/etags.c   571
 Forth_words     c-src/etags.c   /^Forth_words (FILE *inf)$/
@@ -2931,7 +2927,14 @@ f	cp-src/c.C	/^     void f() {}$/
 f       cp-src/fail.C   /^              int f() { return 5; }$/
 f       cp-src/fail.C   /^int A::B::f() { return 2; }$/
 f1      c.c     /^     f1 () { \/* Do something. *\/; }$/
+f1      perl-src/kai-test.pl    /^sub f1 {$/
 f2      c.c     /^void f2 () { \/* Do something. *\/; }$/
+f2      perl-src/kai-test.pl    /^sub main::f2 {$/
+f3      perl-src/kai-test.pl    /^sub f3 {$/
+f4      perl-src/kai-test.pl    /^sub Bar::f4 {$/
+f5      perl-src/kai-test.pl    /^sub f5 {$/
+f6      perl-src/kai-test.pl    /^sub f6 {$/
+f7      perl-src/kai-test.pl    /^sub f7 {$/
 fast_string_match_ignore_case   c-src/emacs/src/lisp.h  /^fast_string_match_ignore_case (Lisp_Object regexp,/
 fastctags       make-src/Makefile       /^fastctags:$/
 fastetags       make-src/Makefile       /^fastetags:$/
@@ -2952,6 +2955,7 @@ fignore	c-src/etags.c	2416
 file-of-tag     el-src/emacs/lisp/progmodes/etags.el    /^(defun file-of-tag (&optional relative)$/
 file-of-tag-function    el-src/emacs/lisp/progmodes/etags.el    /^(defvar file-of-tag-function nil$/
 fileJoin        php-src/lce_functions.php       /^  function fileJoin()$/
+file_end        perl-src/htlmify-cystic /^sub file_end ()$/
 file_index      perl-src/htlmify-cystic 33
 file_tocs       perl-src/htlmify-cystic 30
 filename_is_absolute    c-src/etags.c   /^filename_is_absolute (char *fn)$/
@@ -2978,6 +2982,10 @@ find-tag-tag-order	el-src/emacs/lisp/progmodes/etags.el	/^(defvar find-tag-tag-o
 find_entries    c-src/etags.c   /^find_entries (FILE *inf)$/
 find_user_signal_name   c-src/emacs/src/keyboard.c      /^find_user_signal_name (int sig)$/
 findcats        prol-src/natded.prolog  /^findcats([],Left,Left).$/
+finish_appendices       perl-src/htlmify-cystic /^sub finish_appendices ()$/
+finish_sections perl-src/htlmify-cystic /^sub finish_sections ()$/
+finish_subsections      perl-src/htlmify-cystic /^sub finish_subsections ()$/
+finish_subsubsections   perl-src/htlmify-cystic /^sub finish_subsubsections ()$/
 finlist c-src/etags.c   2414
 first   c-src/emacs/src/gmalloc.c       151
 fitchtreelist   prol-src/natded.prolog  /^fitchtreelist([]).$/
@@ -3085,6 +3093,7 @@ get_layer_by_name	lua-src/allegro.lua	/^local function get_layer_by_name (sprite
 get_tag c-src/etags.c   /^get_tag (register char *bp, char **namepp)$/
 get_word        c-src/tab.c     /^static char           *get_word(char **str, char delim)$/
 getcjmp c-src/emacs/src/keyboard.c      147
+getopt  perl-src/yagrip.pl      /^sub getopt {$/
 getopt.o        make-src/Makefile       /^getopt.o: emacs\/lib-src\/getopt.c$/
 getopt1.o       make-src/Makefile       /^getopt1.o: emacs\/lib-src\/getopt1.c$/
 getptys objc-src/Subprocess.m   /^getptys (int *master, int *slave)$/
@@ -3419,23 +3428,6 @@ mach_reply_port	c-src/machsyscalls.h	/^SYSCALL (mach_reply_port, -26,$/
 mach_task_self  c-src/machsyscalls.h    /^SYSCALL (mach_task_self, -28,$/
 mach_thread_self        c-src/machsyscalls.h    /^SYSCALL (mach_thread_self, -27,$/
 magic   c-src/emacs/src/gmalloc.c       1863
-main::f1        perl-src/kai-test.pl    /^sub f1 {$/
-main::f2        perl-src/kai-test.pl    /^sub main::f2 {$/
-main::f7        perl-src/kai-test.pl    /^sub f7 {$/
-main::file_end  perl-src/htlmify-cystic /^sub file_end ()$/
-main::finish_appendices perl-src/htlmify-cystic /^sub finish_appendices ()$/
-main::finish_sections   perl-src/htlmify-cystic /^sub finish_sections ()$/
-main::finish_subsections        perl-src/htlmify-cystic /^sub finish_subsections ()$/
-main::finish_subsubsections     perl-src/htlmify-cystic /^sub finish_subsubsections ()$/
-main::getopt    perl-src/yagrip.pl      /^sub getopt {$/
-main::read_toc  perl-src/htlmify-cystic /^sub read_toc ()$/
-main::section_href      perl-src/htlmify-cystic /^sub section_href ($)$/
-main::section_name      perl-src/htlmify-cystic /^sub section_name ($)$/
-main::section_url       perl-src/htlmify-cystic /^sub section_url ()$/
-main::section_url_base  perl-src/htlmify-cystic /^sub section_url_base ()$/
-main::section_url_name  perl-src/htlmify-cystic /^sub section_url_name ()$/
-main::toc_line  perl-src/htlmify-cystic /^sub toc_line ($)$/
-main::usage     perl-src/yagrip.pl      /^sub usage {$/
 maintaining.info        make-src/Makefile       /^maintaining.info: maintaining.texi$/
 make-abbrev-table       c-src/abbrev.c  /^DEFUN ("make-abbrev-table", Fmake_abbrev_table, Sm/
 make_C_tag      c-src/etags.c   /^make_C_tag (bool isfun)$/
@@ -3922,6 +3914,7 @@ read_key_sequence_cmd	c-src/emacs/src/keyboard.c	232
 read_key_sequence_remapped      c-src/emacs/src/keyboard.c      233
 read_key_sequence_vs    c-src/emacs/src/keyboard.c      /^read_key_sequence_vs (Lisp_Object prompt, Lisp_Obj/
 read_menu_command       c-src/emacs/src/keyboard.c      /^read_menu_command (void)$/
+read_toc        perl-src/htlmify-cystic /^sub read_toc ()$/
 readable_events c-src/emacs/src/keyboard.c      /^readable_events (int flags)$/
 readline        c-src/etags.c   /^readline (linebuffer *lbp, FILE *stream)$/
 readline_internal       c-src/etags.c   /^readline_internal (linebuffer *lbp, register FILE /
@@ -4027,8 +4020,13 @@ scroll_bar_parts	c-src/emacs/src/keyboard.c	5189
 sec=\relax      tex-src/texinfo.tex     /^\\let\\appendixsec=\\relax$/
 section perl-src/htlmify-cystic 25
 section=\relax  tex-src/texinfo.tex     /^\\let\\appendixsection=\\relax$/
+section_href    perl-src/htlmify-cystic /^sub section_href ($)$/
 section_name    perl-src/htlmify-cystic 12
+section_name    perl-src/htlmify-cystic /^sub section_name ($)$/
 section_toc     perl-src/htlmify-cystic 15
+section_url     perl-src/htlmify-cystic /^sub section_url ()$/
+section_url_base        perl-src/htlmify-cystic /^sub section_url_base ()$/
+section_url_name        perl-src/htlmify-cystic /^sub section_url_name ()$/
 select  prol-src/natded.prolog  /^select(X,[X|Xs],Xs).$/
 select-tags-table       el-src/emacs/lisp/progmodes/etags.el    /^(defun select-tags-table ()$/
 select-tags-table-mode  el-src/emacs/lisp/progmodes/etags.el    /^(define-derived-mode select-tags-table-mode specia/
@@ -4324,6 +4322,7 @@ timers_run	c-src/emacs/src/keyboard.c	320
 tinbody c-src/etags.c   2431
 tkeyseen        c-src/etags.c   2429
 tnone   c-src/etags.c   2428
+toc_line        perl-src/htlmify-cystic /^sub toc_line ($)$/
 toggleDescription       objc-src/PackInsp.m     /^-toggleDescription$/
 tok     c-src/etags.c   2491
 token   c-src/etags.c   2508
@@ -4396,6 +4395,7 @@ unsignedp	cccp.y	113
 unsignedp       y-src/cccp.y    112
 uprintmax_t     c-src/emacs/src/lisp.h  149
 uprintmax_t     c-src/emacs/src/lisp.h  154
+usage   perl-src/yagrip.pl      /^sub usage {$/
 usecharno       c-src/etags.c   210
 used    c-src/emacs/src/regex.h 347
 used_syntax     c-src/emacs/src/regex.h 398
diff --git a/test/etags/ETAGS.good_1 b/test/etags/ETAGS.good_1
index d2550863428..58661bbf600 100644
--- a/test/etags/ETAGS.good_1
+++ b/test/etags/ETAGS.good_1
@@ -2665,7 +2665,7 @@ define("TEST"TEST
1,0
 test 4,26
 foo(16,200
 
-perl-src/htlmify-cystic,1443
+perl-src/htlmify-cystic,1197
 my @section_name;section_name
12,236
 my @appendix_name;appendix_name
13,254
 my @section_toc;section_toc
15,274
@@ -2683,7 +2683,7 @@ my $output_file;output_file
35,556
 my $line;line
37,574
 my $subsection_marker;subsection_marker
161,3883
 my $new;new
163,3907
-sub read_toc main::read_toc
165,3917
+sub read_toc 165,3917
           my $entry entry
218,5621
           my $entry entry
234,6077
               my $entry entry
245,6351
@@ -2692,38 +2692,38 @@ sub read_toc main::read_toc
165,3917
               my $entry entry
276,7204
           my $entry entry
281,7328
       my $entry entry
296,7698
-sub finish_subsubsections main::finish_subsubsections
302,7805
-sub finish_subsections main::finish_subsections
309,7987
-sub finish_sections main::finish_sections
320,8310
-sub finish_appendices main::finish_appendices
331,8599
-sub section_url_base main::section_url_base
337,8724
-sub section_url_name main::section_url_name
342,8922
-sub section_url main::section_url
355,9284
+sub finish_subsubsections 302,7805
+sub finish_subsections 309,7987
+sub finish_sections 320,8310
+sub finish_appendices 331,8599
+sub section_url_base 337,8724
+sub section_url_name 342,8922
+sub section_url 355,9284
   my $name name
357,9336
-sub section_href main::section_href
364,9452
-sub section_name main::section_name
368,9551
-sub toc_line main::toc_line
372,9655
-sub file_end main::file_end
375,9750
+sub section_href 364,9452
+sub section_name 368,9551
+sub toc_line 372,9655
+sub file_end 375,9750
 
-perl-src/yagrip.pl,258
-sub getopt main::getopt
7,156
+perl-src/yagrip.pl,233
+sub getopt 7,156
         local($_,$flag,$opt,$f,$r,@temp)($_,$flag,$opt,$f,$r,@temp
8,169
-sub usage main::usage
38,856
+sub usage 38,856
         local($prog,$_,@list)($prog,$_,@list
39,868
         local($string,$flag,@string,@temp,@last)($string,$flag,@string,@temp,@last
40,897
 
-perl-src/kai-test.pl,244
-sub f1 main::f1
2,16
-sub main::f2 6,50
+perl-src/kai-test.pl,203
+sub f1 2,16
+sub main::f2 f2
6,50
 package Foo;10,90
-sub f3 Foo::f3
12,104
-sub Bar::f4 16,138
+sub f3 12,104
+sub Bar::f4 f4
16,138
 package Bar;20,177
-sub f5 Bar::f5
22,191
+sub f5 22,191
 package Foo::Bar;26,225
-sub f6 Foo::Bar::f6
28,244
+sub f6 28,244
 package main;32,278
-sub f7 main::f7
34,293
+sub f7 34,293
 
 ps-src/rfc1245.ps,2478
 /FMversion 12,311
diff --git a/test/etags/ETAGS.good_2 b/test/etags/ETAGS.good_2
index 9eb1d4297c8..ecfa7d19885 100644
--- a/test/etags/ETAGS.good_2
+++ b/test/etags/ETAGS.good_2
@@ -3235,7 +3235,7 @@ define("TEST"TEST
1,0
 test 4,26
 foo(16,200
 
-perl-src/htlmify-cystic,1443
+perl-src/htlmify-cystic,1197
 my @section_name;section_name
12,236
 my @appendix_name;appendix_name
13,254
 my @section_toc;section_toc
15,274
@@ -3253,7 +3253,7 @@ my $output_file;output_file
35,556
 my $line;line
37,574
 my $subsection_marker;subsection_marker
161,3883
 my $new;new
163,3907
-sub read_toc main::read_toc
165,3917
+sub read_toc 165,3917
           my $entry entry
218,5621
           my $entry entry
234,6077
               my $entry entry
245,6351
@@ -3262,38 +3262,38 @@ sub read_toc main::read_toc
165,3917
               my $entry entry
276,7204
           my $entry entry
281,7328
       my $entry entry
296,7698
-sub finish_subsubsections main::finish_subsubsections
302,7805
-sub finish_subsections main::finish_subsections
309,7987
-sub finish_sections main::finish_sections
320,8310
-sub finish_appendices main::finish_appendices
331,8599
-sub section_url_base main::section_url_base
337,8724
-sub section_url_name main::section_url_name
342,8922
-sub section_url main::section_url
355,9284
+sub finish_subsubsections 302,7805
+sub finish_subsections 309,7987
+sub finish_sections 320,8310
+sub finish_appendices 331,8599
+sub section_url_base 337,8724
+sub section_url_name 342,8922
+sub section_url 355,9284
   my $name name
357,9336
-sub section_href main::section_href
364,9452
-sub section_name main::section_name
368,9551
-sub toc_line main::toc_line
372,9655
-sub file_end main::file_end
375,9750
+sub section_href 364,9452
+sub section_name 368,9551
+sub toc_line 372,9655
+sub file_end 375,9750
 
-perl-src/yagrip.pl,258
-sub getopt main::getopt
7,156
+perl-src/yagrip.pl,233
+sub getopt 7,156
         local($_,$flag,$opt,$f,$r,@temp)($_,$flag,$opt,$f,$r,@temp
8,169
-sub usage main::usage
38,856
+sub usage 38,856
         local($prog,$_,@list)($prog,$_,@list
39,868
         local($string,$flag,@string,@temp,@last)($string,$flag,@string,@temp,@last
40,897
 
-perl-src/kai-test.pl,244
-sub f1 main::f1
2,16
-sub main::f2 6,50
+perl-src/kai-test.pl,203
+sub f1 2,16
+sub main::f2 f2
6,50
 package Foo;10,90
-sub f3 Foo::f3
12,104
-sub Bar::f4 16,138
+sub f3 12,104
+sub Bar::f4 f4
16,138
 package Bar;20,177
-sub f5 Bar::f5
22,191
+sub f5 22,191
 package Foo::Bar;26,225
-sub f6 Foo::Bar::f6
28,244
+sub f6 28,244
 package main;32,278
-sub f7 main::f7
34,293
+sub f7 34,293
 
 ps-src/rfc1245.ps,2478
 /FMversion 12,311
diff --git a/test/etags/ETAGS.good_3 b/test/etags/ETAGS.good_3
index 1f5a34272e3..5f84aa9a0c6 100644
--- a/test/etags/ETAGS.good_3
+++ b/test/etags/ETAGS.good_3
@@ -3012,7 +3012,7 @@ test 4,26
         var $test12,176
 foo(16,200
 
-perl-src/htlmify-cystic,1443
+perl-src/htlmify-cystic,1197
 my @section_name;section_name
12,236
 my @appendix_name;appendix_name
13,254
 my @section_toc;section_toc
15,274
@@ -3030,7 +3030,7 @@ my $output_file;output_file
35,556
 my $line;line
37,574
 my $subsection_marker;subsection_marker
161,3883
 my $new;new
163,3907
-sub read_toc main::read_toc
165,3917
+sub read_toc 165,3917
           my $entry entry
218,5621
           my $entry entry
234,6077
               my $entry entry
245,6351
@@ -3039,38 +3039,38 @@ sub read_toc main::read_toc
165,3917
               my $entry entry
276,7204
           my $entry entry
281,7328
       my $entry entry
296,7698
-sub finish_subsubsections main::finish_subsubsections
302,7805
-sub finish_subsections main::finish_subsections
309,7987
-sub finish_sections main::finish_sections
320,8310
-sub finish_appendices main::finish_appendices
331,8599
-sub section_url_base main::section_url_base
337,8724
-sub section_url_name main::section_url_name
342,8922
-sub section_url main::section_url
355,9284
+sub finish_subsubsections 302,7805
+sub finish_subsections 309,7987
+sub finish_sections 320,8310
+sub finish_appendices 331,8599
+sub section_url_base 337,8724
+sub section_url_name 342,8922
+sub section_url 355,9284
   my $name name
357,9336
-sub section_href main::section_href
364,9452
-sub section_name main::section_name
368,9551
-sub toc_line main::toc_line
372,9655
-sub file_end main::file_end
375,9750
+sub section_href 364,9452
+sub section_name 368,9551
+sub toc_line 372,9655
+sub file_end 375,9750
 
-perl-src/yagrip.pl,258
-sub getopt main::getopt
7,156
+perl-src/yagrip.pl,233
+sub getopt 7,156
         local($_,$flag,$opt,$f,$r,@temp)($_,$flag,$opt,$f,$r,@temp
8,169
-sub usage main::usage
38,856
+sub usage 38,856
         local($prog,$_,@list)($prog,$_,@list
39,868
         local($string,$flag,@string,@temp,@last)($string,$flag,@string,@temp,@last
40,897
 
-perl-src/kai-test.pl,244
-sub f1 main::f1
2,16
-sub main::f2 6,50
+perl-src/kai-test.pl,203
+sub f1 2,16
+sub main::f2 f2
6,50
 package Foo;10,90
-sub f3 Foo::f3
12,104
-sub Bar::f4 16,138
+sub f3 12,104
+sub Bar::f4 f4
16,138
 package Bar;20,177
-sub f5 Bar::f5
22,191
+sub f5 22,191
 package Foo::Bar;26,225
-sub f6 Foo::Bar::f6
28,244
+sub f6 28,244
 package main;32,278
-sub f7 main::f7
34,293
+sub f7 34,293
 
 ps-src/rfc1245.ps,2478
 /FMversion 12,311
diff --git a/test/etags/ETAGS.good_4 b/test/etags/ETAGS.good_4
index b8a3d9de6db..12e2a6549cf 100644
--- a/test/etags/ETAGS.good_4
+++ b/test/etags/ETAGS.good_4
@@ -2829,7 +2829,7 @@ define("TEST"TEST
1,0
 test 4,26
 foo(16,200
 
-perl-src/htlmify-cystic,1443
+perl-src/htlmify-cystic,1197
 my @section_name;section_name
12,236
 my @appendix_name;appendix_name
13,254
 my @section_toc;section_toc
15,274
@@ -2847,7 +2847,7 @@ my $output_file;output_file
35,556
 my $line;line
37,574
 my $subsection_marker;subsection_marker
161,3883
 my $new;new
163,3907
-sub read_toc main::read_toc
165,3917
+sub read_toc 165,3917
           my $entry entry
218,5621
           my $entry entry
234,6077
               my $entry entry
245,6351
@@ -2856,38 +2856,38 @@ sub read_toc main::read_toc
165,3917
               my $entry entry
276,7204
           my $entry entry
281,7328
       my $entry entry
296,7698
-sub finish_subsubsections main::finish_subsubsections
302,7805
-sub finish_subsections main::finish_subsections
309,7987
-sub finish_sections main::finish_sections
320,8310
-sub finish_appendices main::finish_appendices
331,8599
-sub section_url_base main::section_url_base
337,8724
-sub section_url_name main::section_url_name
342,8922
-sub section_url main::section_url
355,9284
+sub finish_subsubsections 302,7805
+sub finish_subsections 309,7987
+sub finish_sections 320,8310
+sub finish_appendices 331,8599
+sub section_url_base 337,8724
+sub section_url_name 342,8922
+sub section_url 355,9284
   my $name name
357,9336
-sub section_href main::section_href
364,9452
-sub section_name main::section_name
368,9551
-sub toc_line main::toc_line
372,9655
-sub file_end main::file_end
375,9750
+sub section_href 364,9452
+sub section_name 368,9551
+sub toc_line 372,9655
+sub file_end 375,9750
 
-perl-src/yagrip.pl,258
-sub getopt main::getopt
7,156
+perl-src/yagrip.pl,233
+sub getopt 7,156
         local($_,$flag,$opt,$f,$r,@temp)($_,$flag,$opt,$f,$r,@temp
8,169
-sub usage main::usage
38,856
+sub usage 38,856
         local($prog,$_,@list)($prog,$_,@list
39,868
         local($string,$flag,@string,@temp,@last)($string,$flag,@string,@temp,@last
40,897
 
-perl-src/kai-test.pl,244
-sub f1 main::f1
2,16
-sub main::f2 6,50
+perl-src/kai-test.pl,203
+sub f1 2,16
+sub main::f2 f2
6,50
 package Foo;10,90
-sub f3 Foo::f3
12,104
-sub Bar::f4 16,138
+sub f3 12,104
+sub Bar::f4 f4
16,138
 package Bar;20,177
-sub f5 Bar::f5
22,191
+sub f5 22,191
 package Foo::Bar;26,225
-sub f6 Foo::Bar::f6
28,244
+sub f6 28,244
 package main;32,278
-sub f7 main::f7
34,293
+sub f7 34,293
 
 ps-src/rfc1245.ps,2478
 /FMversion 12,311
diff --git a/test/etags/ETAGS.good_5 b/test/etags/ETAGS.good_5
index 9e3b258eabc..98de4f2c2fb 100644
--- a/test/etags/ETAGS.good_5
+++ b/test/etags/ETAGS.good_5
@@ -3746,7 +3746,7 @@ test 4,26
         var $test12,176
 foo(16,200
 
-perl-src/htlmify-cystic,1443
+perl-src/htlmify-cystic,1197
 my @section_name;section_name
12,236
 my @appendix_name;appendix_name
13,254
 my @section_toc;section_toc
15,274
@@ -3764,7 +3764,7 @@ my $output_file;output_file
35,556
 my $line;line
37,574
 my $subsection_marker;subsection_marker
161,3883
 my $new;new
163,3907
-sub read_toc main::read_toc
165,3917
+sub read_toc 165,3917
           my $entry entry
218,5621
           my $entry entry
234,6077
               my $entry entry
245,6351
@@ -3773,38 +3773,38 @@ sub read_toc main::read_toc
165,3917
               my $entry entry
276,7204
           my $entry entry
281,7328
       my $entry entry
296,7698
-sub finish_subsubsections main::finish_subsubsections
302,7805
-sub finish_subsections main::finish_subsections
309,7987
-sub finish_sections main::finish_sections
320,8310
-sub finish_appendices main::finish_appendices
331,8599
-sub section_url_base main::section_url_base
337,8724
-sub section_url_name main::section_url_name
342,8922
-sub section_url main::section_url
355,9284
+sub finish_subsubsections 302,7805
+sub finish_subsections 309,7987
+sub finish_sections 320,8310
+sub finish_appendices 331,8599
+sub section_url_base 337,8724
+sub section_url_name 342,8922
+sub section_url 355,9284
   my $name name
357,9336
-sub section_href main::section_href
364,9452
-sub section_name main::section_name
368,9551
-sub toc_line main::toc_line
372,9655
-sub file_end main::file_end
375,9750
+sub section_href 364,9452
+sub section_name 368,9551
+sub toc_line 372,9655
+sub file_end 375,9750
 
-perl-src/yagrip.pl,258
-sub getopt main::getopt
7,156
+perl-src/yagrip.pl,233
+sub getopt 7,156
         local($_,$flag,$opt,$f,$r,@temp)($_,$flag,$opt,$f,$r,@temp
8,169
-sub usage main::usage
38,856
+sub usage 38,856
         local($prog,$_,@list)($prog,$_,@list
39,868
         local($string,$flag,@string,@temp,@last)($string,$flag,@string,@temp,@last
40,897
 
-perl-src/kai-test.pl,244
-sub f1 main::f1
2,16
-sub main::f2 6,50
+perl-src/kai-test.pl,203
+sub f1 2,16
+sub main::f2 f2
6,50
 package Foo;10,90
-sub f3 Foo::f3
12,104
-sub Bar::f4 16,138
+sub f3 12,104
+sub Bar::f4 f4
16,138
 package Bar;20,177
-sub f5 Bar::f5
22,191
+sub f5 22,191
 package Foo::Bar;26,225
-sub f6 Foo::Bar::f6
28,244
+sub f6 28,244
 package main;32,278
-sub f7 main::f7
34,293
+sub f7 34,293
 
 ps-src/rfc1245.ps,2478
 /FMversion 12,311