[tools] fix segfault when using the maxlen argument (#4359)

[openwrt.git] / scripts / flashing / adam2flash-502T.pl

diff --git a/scripts/flashing/adam2flash-502T.pl b/scripts/flashing/adam2flash-502T.pl
index 0ed296d..0c4c9d7 100644 (file)
--- a/scripts/flashing/adam2flash-502T.pl
+++ b/scripts/flashing/adam2flash-502T.pl
@@ -143,6 +143,8 @@ while($scanning) {
 
 $box or die " not found!\n";
 
+alarm(0);
+
 {
        package ADAM2FTP;
        use base qw(Net::FTP);