From e46aa1ddb7d58d270bbc45cef016b0577cfdecaa Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 11 Mar 2016 14:43:33 -0700 Subject: Fix various pod errors. Mostly these are too long verbatim lines. --- ext/File-Find/lib/File/Find.pm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'ext/File-Find') diff --git a/ext/File-Find/lib/File/Find.pm b/ext/File-Find/lib/File/Find.pm index 505cdc776d..03dac9fbda 100644 --- a/ext/File-Find/lib/File/Find.pm +++ b/ext/File-Find/lib/File/Find.pm @@ -3,7 +3,7 @@ use 5.006; use strict; use warnings; use warnings::register; -our $VERSION = '1.33'; +our $VERSION = '1.34'; require Exporter; require Cwd; @@ -1056,16 +1056,16 @@ App-find2perl CPAN distribution), which when fed, produces something like: - sub wanted { - /^\.nfs.*\z/s && - (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) && - int(-M _) > 7 && - unlink($_) - || - ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) && - $dev < 0 && - ($File::Find::prune = 1); - } + sub wanted { + /^\.nfs.*\z/s && + (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) && + int(-M _) > 7 && + unlink($_) + || + ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) && + $dev < 0 && + ($File::Find::prune = 1); + } Notice the C<_> in the above C: the C<_> is a magical filehandle that caches the information from the preceding -- cgit v1.2.1