FAQ
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6830146276953868aad3dab123e7048a786f9452?hp=bdc905d035d4f835a808f1825dad9a8cd726d1ec>

- Log -----------------------------------------------------------------
commit 6830146276953868aad3dab123e7048a786f9452
Author: Father Chrysostomos <sprout@cpan.org>
Date: Tue May 31 06:32:16 2016 -0700

     [perl #128294] bisect-runner.pl: --no-module-tests
-----------------------------------------------------------------------

Summary of changes:
  Porting/bisect-runner.pl | 23 ++++++++++++++++++++++-
  1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl
index 360c186..f90b0ef 100755
--- a/Porting/bisect-runner.pl
+++ b/Porting/bisect-runner.pl
@@ -67,6 +67,7 @@ unless(GetOptions(\%options,
                    'all-fixups', 'early-fixup=s@', 'late-fixup=s@', 'valgrind',
                    'check-args', 'check-shebang!', 'usage|help|?', 'gold=s',
                    'module=s', 'with-module=s', 'cpan-config-dir=s',
+ 'no-module-tests',
                    'A=s@',
                    'D=s@' => sub {
                        my (undef, $val) = @_;
@@ -130,6 +131,10 @@ pod2usage(exitval => 255, verbose => 1)
      unless @ARGV || $match || $options{'test-build'} || defined $options{'one-liner'} || defined $options{module};
  pod2usage(exitval => 255, verbose => 1)
      if !$options{'one-liner'} && ($options{l} || $options{w});
+if ($options{'no-module-tests'} && $options{module}) {
+ print STDERR "--module and --no-module-tests are exclusive.\n\n";
+ pod2usage(exitval => 255, verbose => 1)
+}

  check_shebang($ARGV[0])
      if $options{'check-shebang'} && @ARGV && !$options{match};
@@ -598,6 +603,17 @@ For example:

  =item *

+--no-module-tests
+
+Use in conjunction with I<--with-module> to install the modules without
+running their tests. This can be a big time saver.
+
+For example:
+
+ .../Porting/bisect.pl --with-module=Moose -e 'use Moose; ...'
+
+=item *
+
  --cpan-config-dir /home/blah/custom

  If defined, this will cause L<CPAN> to look for F<CPAN/MyConfig.pm> inside of
@@ -1509,8 +1525,13 @@ if ($options{module} || $options{'with-module'}) {
      s/-/::/g if /-/ and !m|/|;
    }
    my $install = join ",", map { "'$_'" } @m;
+ if ($options{'no-module-tests'}) {
+ $install = "notest('install',$install)";
+ } else {
+ $install = "install($install)";
+ }
    my $last = $m[-1];
- my $shellcmd = "install($install); die unless CPAN::Shell->expand(Module => '$last')->uptodate;";
+ my $shellcmd = "$install; die unless CPAN::Shell->expand(Module => '$last')->uptodate;";

    if ($options{module}) {
      run_report_and_exit(@cpanshell, $shellcmd);

--
Perl5 Master Repository

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-changes @
categoriesperl
postedMay 31, '16 at 1:36p
activeMay 31, '16 at 1:36p
posts1
users1
websiteperl.org

1 user in discussion

Father Chrysostomos: 1 post

People

Translate

site design / logo © 2018 Grokbase