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/
