From 2bd27d807e106871708a29749ea3cd013023061d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Wed, 14 Nov 2007 11:57:20 +0000
Subject: [PATCH] A few more multiply 'my'ed scalars.
---
misc-scripts/xref_mapping/XrefMapper/homo_sapiens.pm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/misc-scripts/xref_mapping/XrefMapper/homo_sapiens.pm b/misc-scripts/xref_mapping/XrefMapper/homo_sapiens.pm
index 520d80fff3..9c277b7936 100644
--- a/misc-scripts/xref_mapping/XrefMapper/homo_sapiens.pm
+++ b/misc-scripts/xref_mapping/XrefMapper/homo_sapiens.pm
@@ -93,6 +93,7 @@ sub species_specific_pre_attributes_set{
my $self = shift;
my $dbname = $self->get_canonical_name();
+ # Where does '$max_object_xref_id' come from here? (ak/2007-11-14)
my $object_xref_id = $max_object_xref_id + 1;
@@ -391,7 +392,8 @@ LSQL
- my ($gene_id, $object_xref_id, $xref_id);
+ my $gene_id;
+ ( $object_xref_id, $xref_id ) = ( undef, undef );
$sth = $self->core->dbc->prepare($get_all_object_xref_genes);
$sth->execute();
--
GitLab