From ea697cf5e4a11bda44eeb206a07289bb66095e47 Mon Sep 17 00:00:00 2001
From: shawnlaffan <shawnlaffan@gmail.com>
Date: Tue, 13 Feb 2024 12:28:57 +1100
Subject: [PATCH] Allow gui progress to be disabled with an argument

Previously it was only package level settings.
---
 lib/Biodiverse/Progress.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Biodiverse/Progress.pm b/lib/Biodiverse/Progress.pm
index 8cf66edc8..f325a8a0a 100644
--- a/lib/Biodiverse/Progress.pm
+++ b/lib/Biodiverse/Progress.pm
@@ -31,7 +31,8 @@ sub new {
 
     return $self
       if    $Biodiverse::Config::progress_no_use_gui
-        || !$Biodiverse::Config::running_under_gui;
+        || !$Biodiverse::Config::running_under_gui
+        || $args{no_gui_progress};
 
     #  if we are to use the GUI
     #print "RUNNING UNDER GUI:  $Biodiverse::Config::running_under_gui\n";