Update year

[clawsker.git] / clawsker

diff --git a/clawsker b/clawsker
index 136a15625ed8d78195b96beb5e533a08fb3a5093..01ce28855a87891c507a9bb11eceba5cb762cb60 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -1,7 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Clawsker :: A Claws Mail Tweaker
-# Copyright 2007-2018 Ricardo Mones <ricardo@mones.org>
+# Copyright 2007-2019 Ricardo Mones <ricardo@mones.org>
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -14,6 +14,7 @@
 package Clawsker;
 use 5.010_000;
 use strict;
+use warnings;
 use utf8;
 use version 0.77;
 use Glib qw(TRUE FALSE);
@@ -44,6 +45,7 @@ sub initialise {
     bindtextdomain ($NAME, catdir ($PREFIX, 'share', 'locale'));
     textdomain ($NAME);
 }
+initialise;
 
 sub _ {
     my $str = shift;
@@ -799,7 +801,7 @@ sub new_other_page() {
         $xl::s{l_gui_from_show},
         $xl::s{h_gui_from_show},
         '0=l_gui_from_show_name;1=l_gui_from_show_addr;2=l_gui_from_show_both',
-        '3.7.10',
+        '3.7.10,3.17.4.44',
         '0',
     ],
     strip_off => [
@@ -1150,7 +1152,7 @@ sub new_behaviour_page() {
         $xl::s{l_col_diff_add},
         $xl::s{h_col_diff_add},
         'color',
-        '3.8.0.54',
+        '3.8.0.54,3.17.4.35',
         '#008b8b',
     ],
     diff_del => [
@@ -1158,7 +1160,7 @@ sub new_behaviour_page() {
         $xl::s{l_col_diff_del},
         $xl::s{h_col_diff_del},
         'color',
-        '3.8.0.54',
+        '3.8.0.54,3.17.4.35',
         '#6a5acd',
     ],
     diff_hunk => [
@@ -1166,7 +1168,7 @@ sub new_behaviour_page() {
         $xl::s{l_col_diff_hunk},
         $xl::s{h_col_diff_hunk},
         'color',
-        '3.8.0.54',
+        '3.8.0.54,3.17.4.35',
         '#a52a2a',
     ],
     tags_bg => [
@@ -2623,7 +2625,7 @@ sub new_notebook {
 # create an about dialog
 sub new_about_dialog {
     my ($parent) = @_;
-    my $year = '2007-2018';
+    my $year = '2007-2019';
     my $holder = 'Ricardo Mones <ricardo@mones.org>';
     my $url = 'http://www.claws-mail.org/clawsker.php';
     my $icons = &get_app_icons;
@@ -2744,7 +2746,6 @@ sub escape_key_handler {
 
 sub main {
     my $args = shift;
-    initialise;
     exit unless parse_command_line ($args);
     Gtk3->init;
     $main_window = Gtk3::Window->new ('toplevel');