Use simpler perl syntax

GMOD · Dec 11, 2018 · ed18c45 · ed18c45
1 parent cd82898
commit ed18c45
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm b/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm
@@ -438,9 +438,9 @@ sub make_operation_stream {
     }
 
     return sub {
-        if(scalar @operation_buffer == 0) {
-            while((my $n = $record_stream->()) && scalar @operation_buffer < 5000) {
-                push @operation_buffer, $self->make_operations($n);
+        unless( @operation_buffer ) {
+            while( (my $name_record = $record_stream->()) && @operation_buffer < 5000) {
+                push @operation_buffer, $self->make_operations($name_record);
             }
         }
         return shift @operation_buffer;