diff options
| -rw-r--r-- | perl-install/Xconfig/monitor.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index a83aa29d2..af19aa70f 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -57,7 +57,7 @@ sub configure_auto_install { $old_X->{monitors} = [ delete $old_X->{monitor} ]; } - my $monitors = [ $raw_X->get_or_new_monitors($old_X->{monitors} ? @{$old_X->{monitors}} : 1) ]; + my $monitors = [ $raw_X->get_or_new_monitors($old_X->{monitors} ? int @{$old_X->{monitors}} : 1) ]; mapn { my ($monitor, $auto_install_monitor) = @_; put_in_hash($monitor, $auto_install_monitor); |