diff options
| -rwxr-xr-x | perl-install/standalone/logdrake | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index f04cb992f..709eda546 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -55,7 +55,7 @@ unless ($::isEmbedded) { $my_win->{window}->signal_connect(delete_event => \&quit); my $cal = gtkset_sensitive(new Gtk2::Calendar(), 0); -my (undef, undef, undef, $mday) = localtime(time()); +my $mday = (localtime(time()))[3]; $cal->select_day($mday); my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); my $cal_mode = 0; @@ -246,7 +246,7 @@ sub parse_file { $pbar = new Gtk2::ProgressBar() ) ); - $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded; + $win_pb->set_transient_for($my_win->{rwindow}); $win_pb->set_modal(1); $win_pb->set_position('center'); $win_pb->realize(); |