Changeset 1600 in ProjectBuilder for devel

Timestamp:

May 26, 2012, 3:31:01 AM (12 years ago)

Author:

Bruno Cornec

Message:

• Reverting stop on error to false by default as VM are not usable for now with it. Will make a conf file option for this

File:

• devel/pb/bin/pb (modified) (5 diffs)

devel/pb/bin/pb

@@ -42 +42 @@
 
 # Global variables
-$Global::pb_stop_on_error = 1;  # True by default
+$Global::pb_stop_on_error = 0;  # False by default
 $Global::pb_show_sudo = 0;      # False by default
 
@@ -3348 +3348 @@
 
 # First install all required packages
-pb_system("yum clean all","Cleaning yum env") if (($pbos->{'name'} eq "fedora") || ($pbos->{'name'} eq "asianux") || ($pbos->{'name'} eq "rhel"));
+pb_system("yum clean all","Cleaning yum env","mayfail") if (($pbos->{'name'} eq "fedora") || ($pbos->{'name'} eq "asianux") || ($pbos->{'name'} eq "rhel"));
 my ($ospkgdep) = pb_conf_get_if("ospkgdep");
     
@@ -3400 +3400 @@
     my $dir = $m;
     $dir =~ s/-.*//;
-    pb_system("echo \"rm -rf $m* ; wget http://search.cpan.org/CPAN/modules/by-module/$dir/$m-$osperlver->{$m}.tar.gz ; gzip -cd $m-$osperlver->{$m}.tar.gz | tar xf - ; cd $m* ; if [ -f Build.PL ]; then perl Build.PL; ./Build ; ./Build install ; else perl Makefile.PL; make ; make install ; fi; cd .. ; rm -rf $m*\" | bash -e" ,"Installing perl module $m-$osperlver->{$m}");
+    pb_system("echo \"rm -rf $m* ; wget http://search.cpan.org/CPAN/modules/by-module/$dir/$m-$osperlver->{$m}.tar.gz ; gzip -cd $m-$osperlver->{$m}.tar.gz | tar xf - ; cd $m* ; if [ -f Build.PL ]; then perl Build.PL; ./Build ; ./Build install ; else perl Makefile.PL; make ; make install ; fi; cd .. ; rm -rf $m*\" | bash -e" ,"Installing perl module $m-$osperlver->{$m}","mayfail");
 }
 EOF
@@ -3422 +3422 @@
     }
     print SCRIPT << 'EOF';
-pb_system("pb 2>&1 | head -5",undef,"verbose");
+pb_system("pb -h",undef,"verbose");
 pb_system("pbdistrocheck",undef,"verbose");
 EOF
@@ -3429 +3429 @@
 # For VE we need to umount some FS at the end
 
-pb_system("umount /proc");
+pb_system("umount /proc","Unmounting /proc,"mayfail");
 
 # Create a basic network file if not already there