diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-20 08:53:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-20 08:53:53 +0000 |
| commit | 1f1ca4840ba88ad1a6b52c5ac9e278b52119ce7a (patch) | |
| tree | fa1d96dbd1d22d85ec6c7aaf0304f4bff485d0c9 | |
| parent | 5d83b3c85ae4d3a8511eb00c43a1c27b6cb8eee3 (diff) | |
| download | control-center-1f1ca4840ba88ad1a6b52c5ac9e278b52119ce7a.tar control-center-1f1ca4840ba88ad1a6b52c5ac9e278b52119ce7a.tar.gz control-center-1f1ca4840ba88ad1a6b52c5ac9e278b52119ce7a.tar.bz2 control-center-1f1ca4840ba88ad1a6b52c5ac9e278b52119ce7a.tar.xz control-center-1f1ca4840ba88ad1a6b52c5ac9e278b52119ce7a.zip | |
perl_checker fixes
| -rwxr-xr-x | control-center | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/control-center b/control-center index 2a582b43..216f00f2 100755 --- a/control-center +++ b/control-center @@ -197,11 +197,11 @@ my @tree = foreach (detect_devices::cdroms()) { my $type = detect_devices::isBurner($_) ? 'burner' : detect_devices::isDvdDrive($_) ? 'DVD' : 'cdrom'; push @{$cdroms_by_type{$type}}, $_; - } ([ 'cdrom', N("CD-ROM"), sub { @{$cdroms_by_type{cdrom} || []} }, N("") ], - [ 'dvd', N("DVD"), sub { @{$cdroms_by_type{DVD} || []} }, N("") ], + } ([ 'cdrom', N("CD-ROM"), sub { @{$cdroms_by_type{cdrom} || []} }, N("CD-ROM drive: dummy description") ], + [ 'dvd', N("DVD"), sub { @{$cdroms_by_type{DVD} || []} }, N("DVD drive: dummy description") ], [ 'cdwriter', N("CD Burner"), sub { @{$cdroms_by_type{burner} || []} }, N("CD/DVD burner: dummy description") ], - [ 'floppy', N("Floppy"), \&detect_devices::floppies, N("") ], - [ 'zip', N("Zip"), \&detect_devices::zips, N("") ], + [ 'floppy', N("Floppy"), \&detect_devices::floppies, N("Floppy drive: dummy description") ], + [ 'zip', N("Zip"), \&detect_devices::zips, N("ZIP drive: dummy description") ], ), }), [ "NFS mount points", 'diskdrake_nfs', ], @@ -494,9 +494,9 @@ foreach (@tree) { $fixed = gtksignal_connect( gtkput($fixed, create_packtable({ col_spacings => $spacing, row_spacings => $spacing }, - (group_by2(map { + group_by2(map { my ($label, $tag) = @$_; - my $text = $exec_hash->{$label}->[3]; + my $text = $exec_hash->{$label}[3]; die "$label 's icon is missing" unless $exec_hash->{$label}; my $event_box = gtkadd(Gtk2::EventBox->new(), my $icon = gtkcreate_img($tag)); $event_box->set_events([ 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]); @@ -511,7 +511,7 @@ foreach (@tree) { gtkset_size_request(gtktext_insert(Gtk2::TextView->new, [ [ $text, {'background_set' => 0, 'background_stipple_set' => 0 } ] ]), ($global_width-$d_width-$icon_width-$spacing*4-5)/2, -1) # gtkset_size_request(Gtk2::Label->new($text), ($global_width-$d_width-$icon_width-95)/2, -1) ); - } @$subtree))), + } @$subtree)), 0, $spacing), realize => sub { set_back_pixbuf($fixed, $right_back_pixbuf) }); @@ -584,7 +584,7 @@ $SIG{CONT} = sub { Gtk2->main }; $window_splash->destroy; -eval { Gtk2->main; } while (1); +eval { Gtk2->main } while 1; # got when child unexpectedly died and gone in zombie state sub sig_child { |