From: Scott C. <sco...@us...> - 2006-08-29 02:21:10
|
Update of /cvsroot/gmod/schema/chado/lib/Bio/GMOD/DB In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv12471 Modified Files: Adapter.pm Config.pm Log Message: flushing temp file handles to make sure we get all of the content Index: Config.pm =================================================================== RCS file: /cvsroot/gmod/schema/chado/lib/Bio/GMOD/DB/Config.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Config.pm 9 Sep 2004 14:23:41 -0000 1.4 --- Config.pm 29 Aug 2006 02:21:03 -0000 1.5 *************** *** 32,36 **** use File::Spec::Functions qw/ catdir catfile /; use vars '@ISA'; ! @ISA = qw/ Bio::GMOD::Config /; --- 32,36 ---- use File::Spec::Functions qw/ catdir catfile /; use vars '@ISA'; ! use base qw/ Bio::GMOD::Config /; Index: Adapter.pm =================================================================== RCS file: /cvsroot/gmod/schema/chado/lib/Bio/GMOD/DB/Adapter.pm,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** Adapter.pm 3 Aug 2006 20:10:51 -0000 1.26 --- Adapter.pm 29 Aug 2006 02:21:02 -0000 1.27 *************** *** 2195,2198 **** --- 2195,2203 ---- foreach my $table (@tables) { + $self->file_handles($files{$table})->autoflush; + if (-s $self->file_handles($files{$table})->filename <= 4) { + warn "Skipping $table table since the load file is empty...\n"; + next; + } $self->copy_from_stdin($table, $copystring{$table}, |