diff options
| author | Piotr Fusik <pfusik@op.pl> | 2005-07-31 14:50:04 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-08-02 10:39:51 +0000 |
| commit | 3c4b39bee8832007b7e91bfce8701d34cacab411 (patch) | |
| tree | 190f72b72255db85e5c78f68a0d0047692aab3a9 /pod/checkpods.PL | |
| parent | db30010093a0bacd16d1fa3fd1bd5397da6479d3 (diff) | |
| download | perl-3c4b39bee8832007b7e91bfce8701d34cacab411.tar.gz | |
Typos in *.p[lm]
From: "Piotr Fusik" <pfusik@op.pl>
Message-ID: <001401c595bd$dccb5d80$0bd34dd5@piec>
p4raw-id: //depot/perl@25261
Diffstat (limited to 'pod/checkpods.PL')
| -rw-r--r-- | pod/checkpods.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/checkpods.PL b/pod/checkpods.PL index 610aad886d..1466fb94d3 100644 --- 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; } |