added some move validation on client before running get_newline

svn path=/bioperl-live/trunk/; revision=1586
bioperl · Oct 2, 2000 · 6127abd · 6127abd
1 parent 4ce87ec
commit 6127abd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/Root/Utilities.pm b/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.