2 spelling corrections, and rephrase the entry on perlivp (better

[perl5.git] / pod / checkpods.PL

diff --git a/pod/checkpods.PL b/pod/checkpods.PL
index 692a706..1466fb9 100644 (file)
--- a/pod/checkpods.PL
+++ b/pod/checkpods.PL
@@ -48,7 +48,7 @@ print OUT <<'!NO!SUBS!';
 # problem currently exists.
 #
 #  Version 1.00  Original.
-#  Version 1.01  Andy Dougherty <doughera@lafcol.lafayette.edu>
+#  Version 1.01  Andy Dougherty <doughera@lafayette.edu>
 #    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
@@ -66,7 +66,7 @@ $exit = $last_unempty = 0;
 while (<>) {
     s/(\012|\015\012|\015)$//;
     if (/^=(\S+)/ && $directive{$1} && $last_unempty) {
-       printf "%s: line %5d, no blank line preceeding directive =%s\n",
+       printf "%s: line %5d, no blank line preceding directive =%s\n",
                $ARGV, $., $1;
        $exit = 1;
     }