[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.158, Fri Sep 24 18:34:32 2004 UTC revision 1.159, Fri Sep 24 18:58:42 2004 UTC
# Line 2446  Line 2446 
2446  {  {
2447      my ($self, $locus) = @_;      my ($self, $locus) = @_;
2448    
2449      $locus =~ m/^([^,])_\d+_\d+/;      $locus =~ m/^([^,]+)_\d+_\d+/;
2450    
2451      return $1;      return $1;
2452  }  }
# Line 2455  Line 2455 
2455  {  {
2456      my ($self, $locus) = @_;      my ($self, $locus) = @_;
2457    
2458      $locus =~ m/^[^,]_(\d+)_\d+/;      $locus =~ m/^[^,]+_(\d+)_\d+/;
2459    
2460      return $1;      return $1;
2461  }  }
# Line 2575  Line 2575 
2575      $contig_txt =~ s/\s//sg;      $contig_txt =~ s/\s//sg;
2576      $contig_txt = uc($contig_txt);      $contig_txt = uc($contig_txt);
2577    
2578      my($rd, $wr);      my($rd, $wr, $pid);
2579    
2580      if (!open2($rd, $wr, "cksum"))      if (!($pid = open2($rd, $wr, "cksum")))
2581      {      {
2582          die "Cannot run open2 cksum: $!";          die "Cannot run open2 cksum: $!";
2583      }      }
# Line 2587  Line 2587 
2587      close($wr);      close($wr);
2588    
2589      $_ = <$rd>;      $_ = <$rd>;
2590        close($rd);
2591        waitpid $pid, 0;
2592    
2593      chomp;      chomp;
2594      my @vals = split(/\s+/, $_);      my @vals = split(/\s+/, $_);
2595      if (wantarray)      if (wantarray)

Legend:
Removed from v.1.158  
changed lines
  Added in v.1.159

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3