[perl #46893] [TODO] [Perl] Complete test coverage of Parrot::Test

[James Keenan via RT]

On Fri Dec 05 19:26:04 2008, jkeen at verizon.net wrote:
> A follow-up:  Another curious point about this is that this block:
> 
>             # set up default description
>             unless ($desc) {
>                 ( undef, my $file, my $line ) = caller();
>                 $desc = "($file line $line)";
>             }
> 
> ... occurs *twice* in this package:  once, where cited, in
> _run_test_file(); once in _generate_test_functions() approx. 62 lines
> after the point at which _generate_test_functions() itself calls
> _run_test_file()!
> 

I deleted the instance where $desc was not used any further in its block.