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/


Reply via email to