Thank y'all. That's weird to read, but it makes sense easy enough.
On Mon, Mar 17, 2014 at 7:10 AM, Brian Fraser <frase...@gmail.com> wrote: > On Mon, Mar 17, 2014 at 10:05 AM, shawn wilson <ag4ve...@gmail.com> wrote: >> >> From Archive::Tar::File - what's '_' and where is it documented? >> >> sub _filetype { >> my $self = shift; >> my $file = shift; >> >> return unless defined $file; >> >> return SYMLINK if (-l $file); # Symlink >> >> return FILE if (-f _); # Plain file >> >> return DIR if (-d _); # Directory >> >> return FIFO if (-p _); # Named pipe >> >> return SOCKET if (-S _); # Socket >> >> return BLOCKDEV if (-b _); # Block special >> >> return CHARDEV if (-c _); # Character special >> >> ### shouldn't happen, this is when making archives, not reading ### >> return LONGLINK if ( $file eq LONGLINK_NAME ); >> >> return UNKNOWN; # Something else (like what?) >> >> } > > > Try 'perldoc -f -X' or http://perldoc.perl.org/functions/-X.html > > In particular, the section that starts (in 5.18 at least) with 'If any of > the file tests' > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/