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.
