Typos in *.p[lm]

[perl5.git] / pod / checkpods.PL

diff --git a/pod/checkpods.PL b/pod/checkpods.PL
index 610aad8..1466fb9 100644 (file)
--- a/pod/checkpods.PL
+++ b/pod/checkpods.PL
@@ -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;
     }