Re: TAP::Harness and -w

* Leon Timmermans <[email protected]> [2013-09-18T19:21:44]
> Or both just setting $Test::Harness::switches = ''…

Yes.  I was cleaning out ~/tmp on the flight over here and I found this dzil
plugin:

  package inc::STFUEUMM;
  use Moose;
  extends 'Dist::Zilla::Plugin::MakeMaker';
  use namespace::autoclean;

  after setup_installer => sub {
    my ($self) = @_;
    my ($file) = grep { $_->name eq 'Makefile.PL' } @{ $self->zilla->files };
    my $content = $file->content;

    $content .= <<'END_AWFUL_HACK';
  sub MY::test_via_harness {
      my($self, $perl, $tests) = @_;
      return qq{\t$perl "-MExtUtils::Command::MM" }.
             qq{"-e" "require Test::Harness; undef *Test::Harness::Switches; test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
  }
  END_AWFUL_HACK

    $file->content($content);
  };


I hadn't published that before because AndyA applied my patch to Test::Harness.
Hmm...

--
rjbs

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.12 (GNU/Linux)

iQEcBAEBAgAGBQJSOjaKAAoJEOYby6cMccU5ohMIANMqF26YMg9t0/nFgrvX94kG
yONXcC2hFRY9vN0kARQQYrBRqNGp3JVgrzIIptH7DVEQmK1stlOUTfY4hzi9kz9q
jcL9KN+pnCKLavZtTvE0e0ML4X2VzKuiKvh3KO6L1SEvYHMLbCk6To6hg7sk/zeB
M93kewAowqrt9cKxs6X6IQJ4SUKvCR8E3RUOj7ka255YM/tk9+UTtrZ9D1fPGEkm
ncS79k4ahbWILmH7OA1zOPhNB6nePn2/QerRtSGapYSsf2a2QME/hIWHv9JomCzt
Z1FWZ3EbemW74eBppfYGXeCKa6pAtxqAXbBv0Y/pr9HvM8+/HqqyiFbQO/7JyLU=
=ISmQ
-----END PGP SIGNATURE-----