# 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'];
--Eric
--
"It is a mistake to allow any mechanical object to realize that you are
in a hurry."
--Ralph's Observation
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
