Re: Detecting Subroutine Input Type

[Chady]

in reply to Detecting Subroutine Input Type

You need ref, like so:

sub thinger {
     my @array;
     if (ref($_[0]) eq 'ARRAY') {
             @array = @$_[0]; 
     } else {
             @array = @_;
     }
     ...

}

[Anonymous Monk]

sub thinger {
    my @array = ( ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_ );
}

[doran]

Well duh! Thanks Chady (and Anon), that's what I was thinking of. Much better than what I was doing.