lxc enter: use IO::Select->select

[pve-client.git] / PVE / APIClient / Commands / lxc.pm

diff --git a/PVE/APIClient/Commands/lxc.pm b/PVE/APIClient/Commands/lxc.pm
index f0c85f76a1e65086ff29c4ce909cc1f3f017176a..c092028a722ed7d4959dff6aea7a670ec10443d4 100644 (file)
--- a/PVE/APIClient/Commands/lxc.pm
+++ b/PVE/APIClient/Commands/lxc.pm
@@ -277,10 +277,10 @@ __PACKAGE__->register_method ({
            };
 
            while (1) {
-               while(my @ready = $select->can_read(3)) {
+               while(my ($readable) = IO::Select->select($select, undef, undef, 3)) {
                    $check_terminal_size->() if $winch_received;
 
-                   foreach my $fh (@ready) {
+                   foreach my $fh (@$readable) {
 
                        if ($fh == $web_socket) {
                            # Read from WebSocket