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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.596, Wed May 30 15:41:42 2007 UTC revision 1.597, Thu Jun 7 16:21:54 2007 UTC
# Line 12106  Line 12106 
12106      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
12107      my($peg,$seq) = @_;      my($peg,$seq) = @_;
12108    
12109      my $cmd = $seq ? "echo \"$peg\t$seq\" | $FIG_Config::bin/auto_assign | $FIG_Config::bin/make_calls" : "echo \"$peg\" | $FIG_Config::bin/auto_assign | $FIG_Config::bin/make_calls";      my $cmd = $seq ? "echo \"$peg\" \"$seq\" | $FIG_Config::bin/auto_assign | $FIG_Config::bin/make_calls" : "echo \"$peg\" | $FIG_Config::bin/auto_assign | $FIG_Config::bin/make_calls";
12110  #   print STDERR $cmd;  #   print STDERR $cmd;
12111      my(@tmp) = `$cmd`;      my(@tmp) = `$cmd`;
12112      if ((@tmp == 1) && ($tmp[0] =~ /^\S+\t(\S.*\S)/))      if ((@tmp == 1) && ($tmp[0] =~ /^\S+\t(\S.*\S)/))
Legend:
Removed from v.1.596  
changed lines
  Added in v.1.597
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3