[Commits] [SCM] clawsker branch, master, updated. 1.3.8-15-ga2275c4

[mones at claws-mail.org]

The branch, master has been updated
       via  a2275c497c53fec660ec4aea522ad4c7b5aa14d2 (commit)
      from  dbdbfecedbb6ad14548208e5b9a1d4c344bba800 (commit)

Summary of changes:
 clawsker | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)


- Log -----------------------------------------------------------------
commit a2275c497c53fec660ec4aea522ad4c7b5aa14d2
Author: Ricardo Mones <ricardo at mones.org>
Date:   Fri Aug 30 21:44:05 2024 +0200

    Add missing explicit returns

diff --git a/clawsker b/clawsker
index 108bde5..3f77bdc 100755
--- a/clawsker
+++ b/clawsker
@@ -47,6 +47,7 @@ sub initialise {
     setlocale (LC_ALL, $locale);
     bindtextdomain ($NAME, catdir ($PREFIX, 'share', 'locale'));
     textdomain ($NAME);
+    return
 }
 initialise;
 
@@ -350,6 +351,7 @@ sub handle_bool_value {
     $$dataref->[VALUE] = ($widget->get_active ())? '1': '0';
     $MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
         if defined $$dataref->[IVALUE];
+    return
 }
 
 sub handle_int_value {
@@ -366,6 +368,7 @@ sub handle_int_value {
     }
     $MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
         if defined $$dataref->[IVALUE];
+    return
 }
 
 sub handle_nchar_value {
@@ -375,6 +378,7 @@ sub handle_nchar_value {
     $$dataref->[VALUE] = $_;
     $MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
         if defined $$dataref->[IVALUE];
+    return
 }
 
 sub gdk_rgba_from_str {
@@ -405,6 +409,7 @@ sub handle_color_value {
     $$dataref->[VALUE] = str_from_gdk_rgba ($newcol);
     $MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
         if defined $$dataref->[IVALUE];
+    return
 }
 
 sub handle_selection_value {
@@ -412,6 +417,7 @@ sub handle_selection_value {
     $$dataref->[VALUE] = $widget->get_active;
     $MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
         if defined $$dataref->[IVALUE];
+    return
 }
 
 sub get_rc_filename {
@@ -432,6 +438,7 @@ sub set_rc_filename {
     $CONFIGRC = $parts[-1];
     $parts[-1] = '';
     $CONFIGDIR = catpath (@parts);
+    return
 }
 
 sub log_message {
@@ -442,6 +449,7 @@ sub log_message {
     if ($VERBOSE) {
         print "$NAME: $mesg\n";
     }
+    return
 }
 
 sub message_dialog {
@@ -479,6 +487,7 @@ sub error_dialog {
     );
     $errordlg->run;
     $errordlg->destroy;
+    return
 }
 
 sub claws_is_running {
@@ -527,6 +536,7 @@ sub set_widget_hint {
     my ($wdgt, $hint) = @_;
     $wdgt->set_tooltip_text ($hint);
     $wdgt->set_has_tooltip (TRUE);
+    return
 }
 
 sub set_widget_sens {
@@ -541,6 +551,7 @@ sub set_widget_sens {
     } else {
         $wdgt->set_sensitive (version_greater_or_equal ($CLAWSV, $ver[0]));
     }
+    return
 }
 
 # graphic element creation
@@ -2488,6 +2499,7 @@ sub textbuf_undo {
         say "Oops, undoing a different buffer!?: $hkey != $orig";
     }
     $undoable = TRUE;
+    return
 }
 
 sub ctrlz_key_handler {
@@ -2597,6 +2609,7 @@ sub print_version() {
                 _("Claws Mail was not found!") :
                 _("Claws Mail returned version {cmv}.", cmv => $CLAWSV);
     say $clawsver;
+    return
 }
 
 # the command line help
@@ -2621,6 +2634,7 @@ sub print_help() {
         _("  -v|--version                     Prints version information and exits.")
     );
     foreach (@help) { say $_ }
+    return
 }
 
 sub parse_command_line {
@@ -2657,6 +2671,7 @@ sub opt_use_claws_version {
     die _("Error: {opt} requires a dotted numeric value argument\n", opt => $name)
         unless ($value =~ /^[\d\.]+$/);
     $CLAWSV = $value;
+    return
 }
 
 sub opt_alternate_config_dir {
@@ -2665,6 +2680,7 @@ sub opt_alternate_config_dir {
         unless -d $value;
     $CONFIGDIR = $value;
     $ALTCONFIGDIR = TRUE;
+    return
 }
 
 sub opt_clawsrc {
@@ -2672,6 +2688,7 @@ sub opt_clawsrc {
     die _("Error: '{value}' is not a file or does not exist\n", value => $value)
         unless -f $value;
     set_rc_filename ($value);
+    return
 }
 
 # update the hidden preferences status from loaded values
@@ -2766,6 +2783,7 @@ sub save_resource {
         or die _("Error: opening '{file}' for writing", file => $rc) . ": $!\n";
     for (@lines) { say $RCF $_ }
     close ($RCF);
+    return
 }
 
 sub backup_resource {
@@ -2826,6 +2844,7 @@ sub save_menurc {
     say $RCF ';';
     foreach (@lines) { say $RCF $_ if $_ }
     close ($RCF);
+    return
 }
 
 # history files
@@ -2845,6 +2864,7 @@ sub save_history {
         or die _("Error: opening '{file}' for writing", file => $history) . ": $!\n";
     say $HIF $text;
     close ($HIF);
+    return
 }
 
 sub load_hi_preferences {
@@ -3067,6 +3087,7 @@ sub exit_handler {
     return TRUE if $resp;
   }
   Gtk3->main_quit;
+  return
 }
 
 # create buttons box
@@ -3132,6 +3153,7 @@ sub escape_key_handler {
     if ($event->keyval == Gtk3::Gdk::keyval_from_name('Escape')) {
         exit_handler($widget);
     }
+    return FALSE;
 }
 
 sub get_screen_height {

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


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