From 33bf4dfb13fabf0440807e37e92e4ca9281a9f13 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 23 Jun 2012 11:06:59 +0200
Subject: re-add --title option

---
 lib/Loadbars/Main.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lib/Loadbars/Main.pm')

diff --git a/lib/Loadbars/Main.pm b/lib/Loadbars/Main.pm
index 199a2e4..68a114e 100644
--- a/lib/Loadbars/Main.pm
+++ b/lib/Loadbars/Main.pm
@@ -294,8 +294,16 @@ sub loop ($@) {
     my $num_stats = 1;
     $C{width} = $C{barwidth};
 
+    my $title = do {
+        if (defined $C{title}) {
+            $C{title};
+        } else {
+            'Loadbars ' . get_version . ' (press h for help on stdout)';
+        }
+    };
+
     my $app = SDL::App->new(
-        -title => 'Loadbars ' . get_version . ' (press h for help on stdout)',
+        -title => $title,
         -icon_title => Loadbars::Constants->VERSION,
         -width      => $C{width},
         -height     => $C{height},
-- 
cgit v1.2.3