initialise $i

e5ea7562 · Felix Kokocinski · 98c194bf · e5ea7562
Commit e5ea7562 authored Aug 02, 2006 by Felix Kokocinski
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

modules/Bio/EnsEMBL/DBSQL/SliceAdaptor.pm modules/Bio/EnsEMBL/DBSQL/SliceAdaptor.pm +1 -1

No files found.
--- a/modules/Bio/EnsEMBL/DBSQL/SliceAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/SliceAdaptor.pm
@@ -281,7 +281,7 @@ sub fetch_by_region {
      my ($tmp_name, $id, $tmp_length, $cs_id);
      $sth->bind_columns(\$tmp_name, \$id, \$tmp_length, \$cs_id);

-      my $i;
+      my $i = 0;

      while ($sth->fetch) {
        my $tmp_cs = ($cs) ? $cs : $csa->fetch_by_dbID($cs_id);