[Bio] / FigCommon / bootstrap.pl Repository:
ViewVC logotype

Diff of /FigCommon/bootstrap.pl

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

revision 1.24, Fri May 6 22:10:16 2005 UTC revision 1.25, Tue May 17 17:36:05 2005 UTC
# Line 633  Line 633 
633      print $fh "RTPERL=$perl\n";      print $fh "RTPERL=$perl\n";
634      print $fh "RTPYTHONPATH=$OtherConfig->{pythonpath}\n";      print $fh "RTPYTHONPATH=$OtherConfig->{pythonpath}\n";
635    
636      my $perlpath = join(":", @INC, "$fig_disk/config");      my %seen;
637        my @perlpath;
638        for (@INC, "$fig_disk/config")
639        {
640            next if $seen{$_};
641            push(@perlpath, $_);
642            $seen{$_}++;
643        }
644        my $perlpath = join(":", @perlpath);
645    
646      print $fh "RTPERL5LIB=$perlpath\n";      print $fh "RTPERL5LIB=$perlpath\n";
647    
648      print $fh "RTPYTHONIMPORTS=FIG_Config\n";      print $fh "RTPYTHONIMPORTS=FIG_Config\n";
649      print $fh "RTPERLIMPORTS=FIG_Config\n";      print $fh "RTPERLIMPORTS=FIG_Config\n";
650        print $fh "RTSETENV=BLASTMAT=$fig_disk/BLASTMAT\n";
651        print $fh "RTSETENV=FIG_HOME=$fig_disk\n";
652  }  }
653    
654  setup_directories("$fig_disk/bin",  setup_directories("$fig_disk/bin",

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3