Убить сервер adb с помощью скрипта perl

Question

Я пытаюсь убить сервер adb после запуска моего скрипта. У меня есть подпрограмма, называемая terminate, которую я использую, чтобы остановить скрипт и убить сервер объявлений.

  sub terminate 
    { 
     print "\nTerminating script ...\n"; 
     system("adb kill-server"); 
     if($ostype eq 'MSWin32') { 
     $ProcessObj->Kill(0); 
    } 
     exit 0; 
} 

Я получаю сообщение об ошибке «Невозможно вызвать метод« Убить »по неопределенному значению». Я посмотрел в своем сценарии и обнаружил, что определен скаляр $ ProcessObj, но я не использовал его, кроме того, в этой подпрограмме. Как я могу преодолеть эту проблему, нужно исправить это как можно скорее. Спасибо

Answer 1

Получил его на работу, проблема заключалась в том, что adb не перезапускался изящно. Просто добавлено system ("adb start-server")