From: Alex Vandiver Date: Wed, 29 Oct 2008 04:22:45 +0000 (-0400) Subject: Remove all mention of checkpods X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94442a1e2340da119f9f259694bde40ead3803a8;p=p5sagit%2Fp5-mst-13.2.git Remove all mention of checkpods --- diff --git a/MANIFEST b/MANIFEST index fccb6e0..f1a9719 100644 --- a/MANIFEST +++ b/MANIFEST @@ -3353,7 +3353,6 @@ plan9/plan9ish.h Plan9 port: Plan9-specific C header file plan9/setup.rc Plan9 port: script for easy build+install plan9/versnum Plan9 port: script to print version number pod/buildtoc Update files based on pod.lst -pod/checkpods.PL Tool to check for common errors in pods pod.lst List the pods and their roles pod/Makefile.SH generate Makefile which makes pods into something else pod/perl5004delta.pod Perl changes in version 5.004 diff --git a/NetWare/Makefile b/NetWare/Makefile index 3fcf143..13c56fb 100644 --- a/NetWare/Makefile +++ b/NetWare/Makefile @@ -667,7 +667,6 @@ UTILS = \ ..\utils\c2ph \ ..\utils\h2xs \ ..\utils\perldoc \ - ..\pod\checkpods \ ..\pod\pod2html \ ..\pod\pod2latex \ ..\pod\pod2man \ diff --git a/pod/Makefile.SH b/pod/Makefile.SH index f1438b9..0dd799b 100644 --- a/pod/Makefile.SH +++ b/pod/Makefile.SH @@ -54,7 +54,7 @@ LDLIBPTH = $ldlibpth ## In the following dollars and backticks do not need the extra backslash. $spitshell >>Makefile <<'!NO!SUBS!' -CONVERTERS = pod2html pod2latex pod2man pod2text checkpods \ +CONVERTERS = pod2html pod2latex pod2man pod2text \ pod2usage podchecker podselect HTMLROOT = / # Change this to fix cross-references in HTML @@ -142,9 +142,6 @@ pod2man: pod2man.PL ../lib/Config.pm pod2text: pod2text.PL ../lib/Config.pm $(LDLIBPTH) $(PERL) -I ../lib pod2text.PL -checkpods: checkpods.PL ../lib/Config.pm - $(LDLIBPTH) $(PERL) -I ../lib checkpods.PL - pod2usage: pod2usage.PL ../lib/Config.pm $(PERL) -I ../lib pod2usage.PL diff --git a/pod/buildtoc b/pod/buildtoc index de88d8d..4054fda 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -611,7 +611,7 @@ sub do_nmake { 1 while $makefile =~ s/\0\tcopy .*\n/\0/gm; $makefile =~ s/\0+/join ("", &generate_nmake_1)/se; - $makefile =~ s{(del /f [^\n]+checkpods[^\n]+).*?(pod2html)} + $makefile =~ s{(del /f [^\n]+podchecker[^\n]+).*?(pod2html)} {"$1\n" . &generate_nmake_2."\n\t $2"}se; $makefile; } diff --git a/pod/checkpods.PL b/pod/checkpods.PL deleted file mode 100644 index 1466fb9..0000000 --- a/pod/checkpods.PL +++ /dev/null @@ -1,85 +0,0 @@ -#!/usr/local/bin/perl - -use Config; -use File::Basename qw(&basename &dirname); -use Cwd; - -# List explicitly here the variables you want Configure to -# generate. Metaconfig only looks for shell variables, so you -# have to mention them as if they were shell variables, not -# %Config entries. Thus you write -# $startperl -# to ensure Configure will look for $Config{startperl}. - -# This forces PL files to create target in same directory as PL file. -# This is so that make depend always knows where to find PL derivatives. -$origdir = cwd; -chdir dirname($0); -$file = basename($0, '.PL'); -$file .= '.com' if $^O eq 'VMS'; - -open OUT,">$file" or die "Can't create $file: $!"; - -print "Extracting $file (with variable substitutions)\n"; - -# In this section, perl variables will be expanded during extraction. -# You can use $Config{...} to use Configure variables. - -print OUT <<"!GROK!THIS!"; -$Config{startperl} - eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}' - if \$running_under_some_shell; -!GROK!THIS! - -# In the following, perl variables are not expanded during extraction. - -print OUT <<'!NO!SUBS!'; -# From roderick@gate.netThu Sep 5 17:19:30 1996 -# Date: Thu, 05 Sep 1996 00:11:22 -0400 -# From: Roderick Schertler -# To: perl5-porters@africa.nicoh.com -# Subject: POD lines with only spaces -# -# There are some places in the documentation where a POD directive is -# ignored because the line before it contains whitespace (and so the -# directive doesn't start a paragraph). This patch adds a way to check -# for these to the pod Makefile (though it isn't made part of the build -# process, which would be a good idea), and fixes those places where the -# problem currently exists. -# -# Version 1.00 Original. -# Version 1.01 Andy Dougherty -# Trivial modifications to output format for easier auto-parsing -# Broke it out as a separate function to avoid nasty -# Make/Shell/Perl quoting problems, and also to make it easier -# to grow. Someone will probably want to rewrite in terms of -# some sort of Pod::Checker module. Or something. Consider this -# a placeholder for the future. -# Version 1.02 Roderick Schertler -# Check for pod directives following any kind of unempty line, not -# just lines of whitespace. - -@directive = qw(head1 head2 item over back cut pod for begin end); -@directive{@directive} = (1) x @directive; - -$exit = $last_unempty = 0; -while (<>) { - s/(\012|\015\012|\015)$//; - if (/^=(\S+)/ && $directive{$1} && $last_unempty) { - printf "%s: line %5d, no blank line preceding directive =%s\n", - $ARGV, $., $1; - $exit = 1; - } - $last_unempty = ($_ ne ''); - if (eof) { - close(ARGV); - $last_unempty = 0; - } -} -exit $exit -!NO!SUBS! - -close OUT or die "Can't close $file: $!"; -chmod 0755, $file or die "Can't reset permissions for $file: $!\n"; -exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':'; -chdir $origdir; diff --git a/win32/Makefile b/win32/Makefile index 0331971..20e4b4e 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -616,7 +616,6 @@ UTILS = \ ..\utils\cpan2dist \ ..\utils\shasum \ ..\utils\instmodsh \ - ..\pod\checkpods \ ..\pod\pod2html \ ..\pod\pod2latex \ ..\pod\pod2man \ diff --git a/win32/makefile.mk b/win32/makefile.mk index 326bef3..abf0f9e 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -758,7 +758,6 @@ UTILS = \ ..\utils\cpan2dist \ ..\utils\shasum \ ..\utils\instmodsh \ - ..\pod\checkpods \ ..\pod\pod2html \ ..\pod\pod2latex \ ..\pod\pod2man \ @@ -1535,7 +1534,7 @@ distclean: realclean perltw.pod perluts.pod perlvmesa.pod perlvms.pod perlvms.pod \ perlvos.pod perlwin32.pod \ pod2html pod2latex pod2man pod2text pod2usage \ - podchecker podselect + podselect -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \ perldoc perlivp dprofpp libnetcfg enc2xs piconv cpan *.bat \ xsubpp instmodsh prove ptar ptardiff cpanp-run-perl cpanp cpan2dist shasum corelist config_data diff --git a/win32/pod.mak b/win32/pod.mak index b220c8b..6f709f0 100644 --- a/win32/pod.mak +++ b/win32/pod.mak @@ -1,4 +1,4 @@ -CONVERTERS = pod2html pod2latex pod2man pod2text checkpods \ +CONVERTERS = pod2html pod2latex pod2man pod2text \ pod2usage podchecker podselect HTMLROOT = / # Change this to fix cross-references in HTML @@ -570,9 +570,6 @@ pod2man: pod2man.PL ../lib/Config.pm pod2text: pod2text.PL ../lib/Config.pm $(PERL) -I ../lib pod2text.PL -checkpods: checkpods.PL ../lib/Config.pm - $(PERL) -I ../lib checkpods.PL - pod2usage: pod2usage.PL ../lib/Config.pm $(PERL) -I ../lib pod2usage.PL