Skip to content
Browse files

prevent spurious warnings by calling return() instead of next() from sub

svn path=/bioperl-microarray/trunk/; revision=11853
  • Loading branch information...
1 parent 7f0d035 commit 45f1412d4e00fa9cedb1adfcf29377dd3fd0a328 allenday committed Aug 16, 2004
Showing with 1 addition and 1 deletion.
  1. +1 −1 Bio/Expression/Microarray/Affymetrix/ArrayDesign.pm
View
2 Bio/Expression/Microarray/Affymetrix/ArrayDesign.pm
@@ -206,7 +206,7 @@ sub each_qcfeaturegroup {
sub load_data {
my($self,$line) = @_;
- next unless $line;
+ return unless $line;
print STDERR $self->mode . "\r" if $DEBUG;
my($key,$value) = (undef,undef);

0 comments on commit 45f1412

Please sign in to comment.
Something went wrong with that request. Please try again.