avoid harmful '<>' pattern, explicitly read from STDIN

[qemu-server.git] / PVE / API2 / Qemu.pm

diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index 0983ce6977e0ac91d284429e25fe9c1e43ff767c..b277a2681989344f83b5df6fb360d1c395b7ad82 100644 (file)
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -1849,7 +1849,7 @@ __PACKAGE__->register_method({
        # read spice ticket from STDIN
        my $spice_ticket;
        if ($stateuri && ($stateuri eq 'tcp') && $migratedfrom && ($rpcenv->{type} eq 'cli')) {
-           if (defined(my $line = <>)) {
+           if (defined(my $line = <STDIN>)) {
                chomp $line;
                $spice_ticket = $line;
            }