[Commits] [SCM] clawsker branch, master, updated. 1.3.0-7-g2187c84

[mones at claws-mail.org]

The branch, master has been updated
       via  2187c844f6180f61896b706d5ceb208f2cf5a7d3 (commit)
      from  3bd34c0a18ef8ae9a26d5bece1441d3402307558 (commit)

Summary of changes:
 clawsker |   16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)


- Log -----------------------------------------------------------------
commit 2187c844f6180f61896b706d5ceb208f2cf5a7d3
Author: Ricardo Mones <ricardo at mones.org>
Date:   Fri Dec 21 20:17:52 2018 +0100

    Fix missing string and simplify
    
    Thanks gusnan for reporting this on irc.
    
    Error message was: Use of uninitialized value in concatenation (.) or
    string at /usr/bin/clawsker line 2232.

diff --git a/clawsker b/clawsker
index 22d2fa7..3791165 100755
--- a/clawsker
+++ b/clawsker
@@ -2246,31 +2246,29 @@ sub get_toolkit_versions {
 }
 
 sub print_version() {
-    print $xl::s{about_title} . "\n";
-    print $xl::s{about_version} . " $VERSION\n";
+    say $xl::s{about_title};
+    say _('Version:') . " $VERSION";
     my $v = get_toolkit_versions ();
     if ($v->{'glib-b'}) {
-        print _("Perl-GLib version {glibv}, built for {glibb}, running with {glibr}.",
+        say _("Perl-GLib version {glibv}, built for {glibb}, running with {glibr}.",
                 glibv => $v->{'glib'},
                 glibb => $v->{'glib-b'},
                 glibr => $v->{'glib-r'});
     } else {
-        print _("Perl-GLib version {glibv}.", glibv => $v->{'glib'});
+        say _("Perl-GLib version {glibv}.", glibv => $v->{'glib'});
     }
-    print "\n";
     if ($v->{'gtk-b'}) {
-        print _("Perl-GTK3 version {gtkv}, built for {gtkb}, running with {gtkr}.",
+        say _("Perl-GTK3 version {gtkv}, built for {gtkb}, running with {gtkr}.",
                 gtkv => $v->{'gtk'},
                 gtkb => $v->{'gtk-b'},
                 gtkr => $v->{'gtk-r'});
     } else {
-        print _("Perl-GTK3 version {gtkv}.", gtkv => $v->{'gtk'});
+        say _("Perl-GTK3 version {gtkv}.", gtkv => $v->{'gtk'});
     }
-    print "\n";
     my $clawsver = ($CLAWSV eq "") ?
                 _("Claws Mail was not found!") :
                 _("Claws Mail returned version {cmv}.", cmv => $CLAWSV);
-    print $clawsver . "\n";
+    say $clawsver;
 }
 
 # the command line help

-----------------------------------------------------------------------


hooks/post-receive
-- 
Hidden preferences editor for Claws Mail