[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.303, Wed Jun 29 00:28:01 2005 UTC revision 1.304, Wed Jun 29 15:06:12 2005 UTC
# Line 1813  Line 1813 
1813    
1814      my ($n, $allFlag);      my ($n, $allFlag);
1815      if ($count eq '*') {      if ($count eq '*') {
1816          Trace("Full file read for \"$file\".") if T(2);          Trace("Full file read for \"$file\".") if T(3);
1817          $allFlag = 1;          $allFlag = 1;
1818          $n = 0;          $n = 0;
1819      } else {      } else {
1820          $allFlag = 0;          $allFlag = 0;
1821          $n = (!$count ? 1 : $count);          $n = (!$count ? 1 : $count);
1822          Trace("Reading $n record(s) from \"$file\".") if T(2);          Trace("Reading $n record(s) from \"$file\".") if T(3);
1823      }      }
1824    
1825      if (open(my $fh, "<$file")) {      if (open(my $fh, "<$file")) {

Legend:
Removed from v.1.303  
changed lines
  Added in v.1.304

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3