[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.46, Sat Oct 20 19:44:10 2007 UTC revision 1.47, Mon Oct 22 16:24:10 2007 UTC
# Line 1862  Line 1862 
1862      my $tied = tie %$contig_index, 'DB_File', $contig_index_file, O_RDONLY, 0666, $DB_BTREE;      my $tied = tie %$contig_index, 'DB_File', $contig_index_file, O_RDONLY, 0666, $DB_BTREE;
1863      if (not $tied)      if (not $tied)
1864      {      {
1865          warn "Cannot tie contig index $contig_index_file: $!\n";          # warn "Cannot tie contig index $contig_index_file: $!\n";
1866      }      }
1867    
1868      my $ltied = tie %$contig_len_index, 'DB_File', $contig_len_index_file, O_RDONLY, 0666, $DB_BTREE;      my $ltied = tie %$contig_len_index, 'DB_File', $contig_len_index_file, O_RDONLY, 0666, $DB_BTREE;
1869      if (not $ltied)      if (not $ltied)
1870      {      {
1871          warn "Cannot tie contig length index $contig_len_index_file: $!\n";          # warn "Cannot tie contig length index $contig_len_index_file: $!\n";
1872      }      }
1873    
1874      #      #

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3