integrate cfgperl changes#6293..6324 into mainline

p4raw-link: @6324 on //depot/cfgperl: 81bf48a6dbba4b295dfa172a17ca70b654dbf225
p4raw-link: @6293 on //depot/cfgperl: 6e37ea6052902cde1aeb08a2129ffc7c8ea53736

p4raw-id: //depot/perl@6369
p4raw-branched: from //depot/cfgperl@6368 'branch in' lib/Win32.pod
	lib/lib_pm.PL
p4raw-deleted: from //depot/cfgperl@6368 'delete in' pod/Win32.pod
	(@5937..) pod/buildtoc (@6091..) lib/lib.pm.PL (@6227..)
	pod/Makefile (@6232..)
p4raw-integrated: from //depot/cfgperl@6368 'copy in' thread.h
	(@5656..) lib/warnings/register.pm (@5704..) ext/B/B/Stash.pm
	(@5972..) lib/CGI/Util.pm (@6034..) util.c (@6217..) gv.c
	(@6244..) pp.c (@6260..) doop.c (@6269..) pod/perlfunc.pod
	(@6277..) pp_ctl.c (@6293..) makedef.pl (@6301..) embed.h
	global.sym objXSUB.h perlapi.c proto.h (@6305..) win32/Makefile
	(@6307..) Makefile.SH (@6309..) t/op/method.t (@6312..) sv.h
	(@6315..) 'ignore' op.c (@6273..) 'merge in' embed.pl
	win32/win32.c (@6305..)
p4raw-integrated: from //depot/cfgperl@6324 'merge in' toke.c (@6307..)
p4raw-branched: from //depot/cfgperl@6323 'branch in' pod/buildtoc.PL
	(@6319..)
p4raw-integrated: from //depot/cfgperl@6323 'copy in' pod/perl.pod
	(@6319..) pod/perltoc.pod (@6322..) 'merge in' MANIFEST
	(@6319..)
p4raw-branched: from //depot/cfgperl@6319 'branch in' pod/Makefile.SH
p4raw-integrated: from //depot/cfgperl@6315 'ignore' pp_hot.c (@6313..)
p4raw-integrated: from //depot/cfgperl@6311 'copy in'
	ext/POSIX/POSIX.pod (@6296..)
p4raw-integrated: from //depot/cfgperl@6307 'merge in' doio.c (@6223..)

1 files changed, 0 insertions, 259 deletions

diff --git a/pod/buildtoc b/pod/buildtoc
deleted file mode 100644
index 58bfc54fd7..0000000000
--- a/pod/buildtoc
+++ /dev/null
@@ -1,259 +0,0 @@
-use File::Find;
-use Cwd;
-use Text::Wrap;
-
-sub output ($);
-
-@pods = qw(
-	   perl perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5
-	   perlfaq6 perlfaq7 perlfaq8 perlfaq9 perldelta perldata
-	   perlsyn perlop perlre perlrun perlfunc perlvar perlsub
-	   perlmod perlmodlib perlmodinstall perlfork perlform perllocale 
-	   perlref perlreftut perldsc
-	   perllol perlboot perltoot perltootc perlobj perltie perlbot perlipc
-	   perldbmfilter perldebug perlnumber perldebguts
-	   perldiag perlsec perltrap perlport perlstyle perlpod perlbook
-	   perlembed perlapio perlxs perlxstut perlguts perlcall perlcompile
-	   perlapi perlintern perlhist
-	  );
-
-for (@pods) { s/$/.pod/ }
-
-$/ = '';
-@ARGV = @pods;
-
-($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
-
-	=head1 NAME
-
-	perltoc - perl documentation table of contents
-
-	=head1 DESCRIPTION
-
-	This page provides a brief table of contents for the rest of the Perl
-	documentation set.  It is meant to be scanned quickly or grepped
-	through to locate the proper section you're looking for.
-
-	=head1 BASIC DOCUMENTATION
-
-EOPOD2B
-#' make emacs happy
-
-podset(@pods);
-
-find \&getpods => qw(../lib ../ext);
-
-sub getpods {
-    if (/\.p(od|m)$/) {
-	# Skip .pm files that have corresponding .pod files, and Functions.pm.
-	return if /(.*)\.pm$/ && -f "$1.pod";
-	my $file = $File::Find::name;
-	return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
-
-	die "tut $name" if $file =~ /TUT/;
-	unless (open (F, "< $_\0")) {
-	    warn "bogus <$file>: $!";
-	    system "ls", "-l", $file;
-	}
-	else {
-	    my $line;
-	    while ($line = <F>) {
-		if ($line =~ /^=head1\s+NAME\b/) {
-		    push @modpods, $file;
-		    #warn "GOOD $file\n";
-		    return;
-		}
-	    }
-	    warn "EVIL $file\n";
-	}
-    }
-}
-
-die "no pods" unless @modpods;
-
-for (@modpods) {
-    #($name) = /(\w+)\.p(m|od)$/;
-    $name = path2modname($_);
-    if ($name =~ /^[a-z]/) {
-	push @pragmata, $_;
-    } else {
-	if ($done{$name}++) {
-	    # warn "already did $_\n";
-	    next;
-	}
-	push @modules, $_;
-	push @modname, $name;
-    }
-}
-
-($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
-
-
-
-	=head1 PRAGMA DOCUMENTATION
-
-EOPOD2B
-
-podset(sort @pragmata);
-
-($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
-
-
-
-	=head1 MODULE DOCUMENTATION
-
-EOPOD2B
-
-podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
-
-($_= <<EOPOD2B) =~ s/^\t//gm;
-
-
-	=head1 AUXILIARY DOCUMENTATION
-
-	Here should be listed all the extra programs' documentation, but they
-	don't all have manual pages yet:
-
-	=over
-
-	=item a2p
-
-	=item s2p
-
-	=item find2perl
-
-	=item h2ph
-
-	=item c2ph
-
-	=item h2xs
-
-	=item xsubpp
-
-	=item pod2man
-
-	=item wrapsuid
-
-	=back
-
-	=head1 AUTHOR
-
-	Larry Wall <F<larry\@wall.org>>, with the help of oodles
-	of other folks.
-
-
-EOPOD2B
-output $_;
-output "\n";                    # flush $LINE
-exit;
-
-sub podset {
-    local @ARGV = @_;
-
-    while(<>) {
-	if (s/^=head1 (NAME)\s*/=head2 /) {
-	    $pod = path2modname($ARGV);
-	    unhead1();
-	    output "\n \n\n=head2 ";
-	    $_ = <>;
-	    if ( /^\s*$pod\b/ ) {
-		s/$pod\.pm/$pod/;       # '.pm' in NAME !?
-		output $_;
-	    } else {
-		s/^/$pod, /;
-		output $_;
-	    }
-	    next;
-	}
-	if (s/^=head1 (.*)/=item $1/) {
-	    unhead2();
-	    output "=over\n\n" unless $inhead1;
-	    $inhead1 = 1;
-	    output $_; nl(); next;
-	}
-	if (s/^=head2 (.*)/=item $1/) {
-	    unitem();
-	    output "=over\n\n" unless $inhead2;
-	    $inhead2 = 1;
-	    output $_; nl(); next;
-	}
-	if (s/^=item ([^=].*)/$1/) {
-	    next if $pod eq 'perldiag';
-	    s/^\s*\*\s*$// && next;
-	    s/^\s*\*\s*//;
-	    s/\n/ /g;
-	    s/\s+$//;
-	    next if /^[\d.]+$/;
-	    next if $pod eq 'perlmodlib' && /^ftp:/;
-	    ##print "=over\n\n" unless $initem;
-	    output ", " if $initem;
-	    $initem = 1;
-	    s/\.$//;
-	    s/^-X\b/-I<X>/;
-	    output $_; next;
-	}
-	if (s/^=cut\s*\n//) {
-	    unhead1();
-	    next;
-	}
-    }
-}
-
-sub path2modname {
-    local $_ = shift;
-    s/\.p(m|od)$//;
-    s-.*?/(lib|ext)/--;
-    s-/-::-g;
-    s/(\w+)::\1/$1/;
-    return $_;
-}
-
-sub unhead1 {
-    unhead2();
-    if ($inhead1) {
-	output "\n\n=back\n\n";
-    }
-    $inhead1 = 0;
-}
-
-sub unhead2 {
-    unitem();
-    if ($inhead2) {
-	output "\n\n=back\n\n";
-    }
-    $inhead2 = 0;
-}
-
-sub unitem {
-    if ($initem) {
-	output "\n\n";
-	##print "\n\n=back\n\n";
-    }
-    $initem = 0;
-}
-
-sub nl {
-    output "\n";
-}
-
-my $NEWLINE;	# how many newlines have we seen recently
-my $LINE;	# what remains to be printed
-
-sub output ($) {
-    for (split /(\n)/, shift) {
-	if ($_ eq "\n") {
-	    if ($LINE) {
-		print wrap('', '', $LINE);
-		$LINE = '';
-	    }
-	    if ($NEWLINE < 2) {
-		print;
-		$NEWLINE++;
-	    }
-	}
-	elsif (/\S/ && length) {
-	    $LINE .= $_;
-	    $NEWLINE = 0;
-	}
-    }
-}