[Bio] / Sprout / NMPDRSetup.pl Repository:
ViewVC logotype

Diff of /Sprout/NMPDRSetup.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15, Tue Sep 23 20:42:51 2008 UTC revision 1.16, Tue Sep 23 21:48:46 2008 UTC
# Line 511  Line 511 
511      Trace("Stage 3 complete.") if T(2);      Trace("Stage 3 complete.") if T(2);
512  }  }
513  #  #
514  # STAGE 4: Fix the file permissions and do a make.  # STAGE 4: Do a make.
515  #  #
516  if ($options->{stage} <= 4) {  if ($options->{stage} <= 4) {
     # Get the group name and ID.  
     my $gname = $options->{group};  
     my $gid = getgrnam($gname);  
     if ($options->{test}) {  
         Trace("Permission fix would occur in $version_dir. Group $gname has ID $gid.") if T(2);  
     } else {  
         # Set the permissions.  
         Tracer::SetPermissions($version_dir, $options->{group}, 02664, tmp => 02777);  
         Trace("Permissions fixed in $version_dir.") if T(2);  
         # Make the build utilities executable.  
         my @utilities = grep { $_ =~ m/\.pl$/i } Tracer::OpenDir("$code_dir/WinBuild");  
         for my $script (@utilities) {  
             Trace("Fixing permissions for $script in $code_dir.") if T(3);  
             chmod 0775, "$code_dir/$script";  
         }  
     }  
517      if ($options->{test}) {      if ($options->{test}) {
518          Trace("Make would occur in directory $code_dir.") if T(2);          Trace("Make would occur in directory $code_dir.") if T(2);
519      } else {      } else {

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3