[tapx-dev] Poosible issue with TAP::Parser::Source::_get_command()

[Andy Armstrong]

On 14 Aug 2007, at 13:20, Leif Eriksen wrote:
> sub _get_command {
>     my ($self) = @_;
>
>     my $commands = $self->source;
>
>     if ('ARRAY' eq ref $commands) {
>       return @{ $commands };
>     }
>
>     return;
> }

Does

sub _get_command { @{ shift->source || [] } }

do the trick?

-- 
Andy Armstrong, hexten.net