[Bio] / FigKernelPackages / PinnedRegions.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/PinnedRegions.pm

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

revision 1.22, Wed Aug 12 17:14:14 2009 UTC revision 1.23, Wed Aug 12 17:32:45 2009 UTC
# Line 1029  Line 1029 
1029          $cmd = $blat;          $cmd = $blat;
1030          my $out_file = "$FIG_Config::temp/$$.blat.out";          my $out_file = "$FIG_Config::temp/$$.blat.out";
1031          @args = ('-prot',  '-out=blast8', $database, $input, $out_file);          @args = ('-prot',  '-out=blast8', $database, $input, $out_file);
1032          system($cmd, @args) == 0 or die "could not run blat";          my $to_run = join(" ",($cmd,@args));
1033            system "$to_run 2> /dev/null > /dev/null";
1034    
1035    #       system($cmd, @args) == 0 or die "could not run blat";
1036    
1037          open(OUT, "<$out_file") or die "could not open file '$out_file': $!";          open(OUT, "<$out_file") or die "could not open file '$out_file': $!";
1038          my @blat_out_all = <OUT>;          my @blat_out_all = <OUT>;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3