Permalink
Browse files

added some move validation on client before running get_newline

svn path=/bioperl-live/trunk/; revision=1586
  • Loading branch information...
1 parent 4ce87ec commit 6127abdde5d4631d9e8a4860284432f90ba31f02 @hyphaltip hyphaltip committed Oct 2, 2000
Showing with 1 addition and 1 deletion.
  1. +1 −1 Bio/Root/Utilities.pm
@@ -892,7 +892,7 @@ sub get_newline {
my $FH = $self->create_filehandle(@param);
- if(not $client) { $client = $self; }
+ if(not ref $client) { $client = $self; }
if($client->{'_input_type'} =~ /STDIN|Glob|compressed/) {
# Can't taste from STDIN since we can't seek 0 on it.

0 comments on commit 6127abd

Please sign in to comment.