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

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.38, Mon Jul 23 20:41:51 2007 UTC revision 1.39, Tue Jul 24 17:01:14 2007 UTC
# Line 514  Line 514 
514      {      {
515          my $contig_lengths = $self->{_contig_len_index};          my $contig_lengths = $self->{_contig_len_index};
516    
517          if (!$contig_lengths)          if (!tied(%$contig_lengths))
518          {          {
519               $contig_lengths = {};               $contig_lengths = {};
520               if (open(CONTIGS,"<$newGdir/contigs"))               if (open(CONTIGS,"<$newGdir/contigs"))
# Line 553  Line 553 
553      {      {
554          my $contig_len = $self->{_contig_len_index};          my $contig_len = $self->{_contig_len_index};
555    
556          if ($contig_len)          if (tied(%$contig_len))
557          {          {
558              return $contig_len->{$contig};              return $contig_len->{$contig};
559          }          }
# Line 598  Line 598 
598          $self->load_contigs_index();          $self->load_contigs_index();
599    
600          my $contigs = $self->{_contigs_index};          my $contigs = $self->{_contigs_index};
601          if ($contigs)          if (tied(%$contigs))
602          {          {
603              return keys %$contigs;              return keys %$contigs;
604          }          }

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3