[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Feb 19 01:03:53 EST 2003
Update of /home/repository/moby/moby-live/Perl/Central/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv4036/Perl/Central/MOBY

Modified Files:
	Central.pm 
Log Message:
fixed another clobber peculiarity
moby-live/Perl/Central/MOBY Central.pm,1.12,1.13
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/Central/MOBY/Central.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- /home/repository/moby/moby-live/Perl/Central/MOBY/Central.pm	2003/02/19 05:41:54	1.12
+++ /home/repository/moby/moby-live/Perl/Central/MOBY/Central.pm	2003/02/19 06:03:53	1.13
@@ -325,6 +325,7 @@
 	$sth->execute($term);
 	my ($existing_acc, $existing_id) = $sth->fetchrow_array;
 	
+	$clobber = 0 unless ($existing_acc);  # it makes no sense to clobber something that doesnt' exist
 	if ($existing_acc){
 		if ($clobber == 1){
 			my $sth = $dbh->prepare($sth{deprecate_object});