summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2020-06-02 12:49:25 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2020-06-02 12:51:11 +0200
commit0f74633de1706c220343d759b39915f1dd3cff1a (patch)
treeadf70be24a5fb4199abaa07feb2bf795c99d7f68
parent48247ff428e90335c4bae5feede5654e672a4e03 (diff)
downloaddraksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar
draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar.gz
draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar.bz2
draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar.xz
draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.zip
perl_checker cleanups
-rwxr-xr-xdraksnapshot-config15
1 files changed, 5 insertions, 10 deletions
diff --git a/draksnapshot-config b/draksnapshot-config
index 69575a7..91ac3ca 100755
--- a/draksnapshot-config
+++ b/draksnapshot-config
@@ -248,24 +248,19 @@ sub add {
my $browse = gtknew('Button', text => N("browse"));
my $file = gtknew('Entry', $o_iter ? (text => $model->get($o_iter, 1)) : ());
my $alrd_exsts = defined $o_iter;
- my $filename_choice;
$browse->signal_connect(clicked => sub {
- my $file_dlg = Gtk3::FileChooserDialog->new(N("Path selection"),$dlg, GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER,N("Cancel") => GTK_RESPONSE_CANCEL,N("OK") => GTK_RESPONSE_OK);
+ my $file_dlg = Gtk3::FileChooserDialog->new(N("Path selection"), $dlg, GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER, N("Cancel") => GTK_RESPONSE_CANCEL, N("OK") => GTK_RESPONSE_OK);
$file_dlg->set_modal(1);
$file_dlg->set_transient_for($dlg);
$file_dlg->show;
$file_dlg->set_filename($file->get_text);
my $answer_add=$file_dlg->run;
- if ( $answer_add eq 'cancel' )
- {
+ if ($answer_add eq 'cancel') {
$file_dlg->destroy;
- }
- else
- {
- if ( $answer_add eq 'ok' ){
- $filename_choice=$file_dlg->get_filename;
+ } else {
+ if ($answer_add eq 'ok') {
$file->set_text($file_dlg->get_filename);
$file_dlg->destroy;
}
@@ -273,7 +268,7 @@ sub add {
});
- gtkpack_($dlg->get_content_area(),
+ gtkpack_($dlg->get_content_area,
0, gtknew('Title2', label => N("Path")),
0, gtknew('HBox', border_width => 18, children => [
1, $file,