[Bioperl-guts-l] bioperl-live/Bio/Matrix Generic.pm,1.6,1.7

[Brian Osborne]

Update of /home/repository/bioperl/bioperl-live/Bio/Matrix
In directory pub.open-bio.org:/tmp/cvs-serv10500/Bio/Matrix

Modified Files:
	Generic.pm 
Log Message:



Index: Generic.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Matrix/Generic.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Generic.pm	3 Sep 2005 01:54:56 -0000	1.6
--- Generic.pm	21 Nov 2005 20:22:32 -0000	1.7
***************
*** 558,561 ****
--- 558,563 ----
         splice(@{$self->{'_rownames'}},$rowindex,1);
     }
+    my $ct = 0;
+    %{$self->{'_rownamesmap'}} = map { $_ => $ct++} @{$self->{'_rownames'}};
     return $self->num_rows;
  }