Re: testcover and tap_harness_args

On 5/27/10 2:37 PM, Eric Wilhelm wrote:
> # from Elliot Shank
> # on Thursday 27 May 2010 05:46:
>
>> it uses Storable, which wasn't in core until 5.7.3
>
>> +    $tap_harness_args = dclone($tap_harness_args);
>> +    $orig_tap_harness_args = dclone($tap_harness_args);
>> +    my $switches = $tap_harness_args->{switches} || [];
>> +    push @{$switches}, '-MDevel::Cover';
>> +    $tap_harness_args->{switches} = $switches;
>
>    $orig_th_args = {%$th_args};
>    $th_args->{switches} =
>     [@{$th_args->{switches}||[]}, '-MDevel::Cover'];

Aha.  Yeah, depth two copy is enough.