From ed18c45cdb8d2ce88c0670365f3d8861dcc182cc Mon Sep 17 00:00:00 2001
From: Colin <colin.diesh@gmail.com>
Date: Tue, 11 Dec 2018 14:16:44 -0500
Subject: [PATCH] Use simpler perl syntax

---
 src/perl5/Bio/JBrowse/Cmd/IndexNames.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm b/src/perl5/Bio/JBrowse/Cmd/IndexNames.pm
index 049cac8b79..342d494072 100644
--- 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;