diff options
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 { |