Commits

Anonymous committed 6214f66

Now configuring CPANPLUS.pm accordingly to send the bug reports,
and do the smoking properly. added get_email to the SmokeConf.

  • Participants
  • Parent commits 2c60cac

Comments (0)

Files changed (2)

first-rev/SmokeAuto.pm

 use base 'Exporter';
 
 our @EXPORT = (qw(
+    configure_cpanplus
+    install_after_perl
     install_all
     install_cpanplus
+    install_first_smokers
+    install_more_smokers
     install_perl
-    install_smokers
     smoke
     )
 );
     }
 }
 
-sub install_smokers
+sub install_first_smokers
+{
+    run_in_env(sub {
+    foreach my $m (qw(
+        YAML::Tiny
+        Test::Reporter
+        ))
+    {
+        install_module($m);
+    }
+    });
+}
+
+sub install_more_smokers
 {
     run_in_env(sub {
     foreach my $m (qw(
         ExtUtils::CBuilder
         Module::Build
         CPANPLUS::Dist::Build
-        Test::Reporter
         CPAN::YACSmoke
         ))
     {
     return $text;
 }
 
+sub configure_cpanplus
+{
+    run_in_env(sub {
+        exec_program($perl_exe, "-MCPANPLUS::Configure", "-e", 
+            q/my ($email) = @ARGV; 
+              my $conf = CPANPLUS::Configure->new(); 
+              $conf->set_conf(email => $email);
+              $conf->set_conf(cpantest => 1);
+              $conf->set_conf(verbose => 1);
+              $conf->save();
+              /, 
+              SmokeConf::get_email()
+          );
+    });
+}
+
+sub install_after_perl
+{
+    run_in_env(sub {
+        install_cpanplus();
+        install_first_smokers();
+        configure_cpanplus();
+        install_more_smokers();
+    });
+}
+
 sub install_all
 {
     run_in_env(sub {
     install_perl();
-    install_cpanplus();
-    install_smokers();
+    install_after_perl();
     }
     );
 }

first-rev/sample-SmokeConf.pm

     # return "http://cpan.initworld.com/";
 }
 
-
-
 sub get_cpan_home
 {
     return $ENV{'HOME'} . "/.cpan";
 }
+
+sub get_email
+{
+    return 'shlomif@cpan.org';
+}
+
 1;