diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-18 16:44:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-18 16:44:52 +0000 |
| commit | e9746d5b1868e7ecdbabce94c47325e05c2f666d (patch) | |
| tree | 0c1d2ca28c1c3c7fbddb81d4b3d29572895bded7 /perl-install/Xconfig | |
| parent | c7a67d1bcbcffaadbbb06be8f11e78e7508eed02 (diff) | |
| download | drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar.gz drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar.bz2 drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar.xz drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.zip | |
make perl_checker happy
Diffstat (limited to 'perl-install/Xconfig')
| -rw-r--r-- | perl-install/Xconfig/card.pm | 2 | ||||
| -rw-r--r-- | perl-install/Xconfig/monitor.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 870ba3f22..79853c5b5 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -270,7 +270,7 @@ sub configure { my ($in, $raw_X, $do_pkgs, $auto, $options) = @_; my @cards = probe(); - @cards or @cards = ({}); + @cards or @cards = {}; if (!$cards[0]{server} && !$cards[0]{Driver} || !$auto) { card_config__not_listed($in, $cards[0], $options) or return; diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index dedac149c..135e1865f 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -73,7 +73,7 @@ sub choose { configure_automatic($monitor, $monitors) and $auto and return 1; - my %h_monitors = map { ; "$_->{VendorName}|$_->{ModelName}" => $_ } @$monitors; + my %h_monitors = map {; "$_->{VendorName}|$_->{ModelName}" => $_ } @$monitors; ask_monitor: my $merged_name = do { |