diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
| commit | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch) | |
| tree | 42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/interactive | |
| parent | 195f44c2da47b9f0df0461b593935d89619a5a0e (diff) | |
| download | drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2 drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip | |
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 6e8eb1fd4..53d7d72c2 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -118,7 +118,7 @@ sub create_clist { $starting_word = '' : $select->(($j + $curr) % @l); - $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 } ); + $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 }); } 1; }); @@ -536,7 +536,7 @@ sub ask_fromW { my $create_widgets = sub { my ($size, @widgets) = @_; - my $w = create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets); + my $w = create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})] } @widgets); $size && $total_size or return $w; #- do not bother computing stupid/bad things my $ratio = max($size / $total_size, 0.2); |