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

Diff of /FigKernelPackages/SeedV.pm

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

revision 1.8, Tue Aug 31 19:03:59 2010 UTC revision 1.9, Mon Oct 4 11:04:59 2010 UTC
# Line 1467  Line 1467 
1467      {      {
1468          my $tbl_file = "$newGdir/Features/$type/tbl";          my $tbl_file = "$newGdir/Features/$type/tbl";
1469          my($type) = $tbl_file =~ m,/([^/]+)/tbl$,;          my($type) = $tbl_file =~ m,/([^/]+)/tbl$,;
1470          print "Load $type\n";          print STDERR "Load $type\n" if $ENV{VERBOSE};
1471          if (open(my $fh, "<", $tbl_file))          if (open(my $fh, "<", $tbl_file))
1472          {          {
1473              while (defined(my $x = <$fh>))              while (defined(my $x = <$fh>))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3