fixed unitialized values for -w warnings

fixed methodname call where methodname had changed (dropped _) svn path=/bioperl-microarray/trunk/; revision=11834
bioperl · Sep 8, 2003 · 385aebd · 385aebd
1 parent 4734dd6
commit 385aebd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/Bio/Expression/Microarray/Affymetrix/ArrayDesign.pm b/Bio/Expression/Microarray/Affymetrix/ArrayDesign.pm
@@ -269,7 +269,8 @@ sub load_data {
 	  $featuregroup = $self->featuregroup($self->_temp_name);
 	}
 
-	my($feature,$attrs) = $_ =~ /Cell(\d+)=(.+)/;
+	my($feature,$attrs) = (undef,undef);
+	($feature,$attrs) = $_ =~ /Cell(\d+)=(.+)/;
 	my @attrs = split /\t/, $attrs;
 
 	my %featureparams = (

diff --git a/Bio/Expression/Microarray/Affymetrix/CelArray.pm b/Bio/Expression/Microarray/Affymetrix/CelArray.pm
@@ -140,7 +140,7 @@ sub load_data {
 	  #objects for them, because their values are necessary to recreate a
 	  #CEL file.
 
-	  $feature = Bio::Expression::Microarray::Affymetrix::CelFeature->new(
+	  $feature = Bio::Expression::Microarray::Affymetrix::Feature->new(
 																		  x => $row[0],
 																		  y => $row[1]
 																		 );