X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=qcdm.pl;h=03b20e295113e91ecc3f131df8bc3ea8e98b104a;hb=49d19023d9b7c2f085c5f8dfe331db919431610f;hp=693e48dfa76b0150b7647c11351f9beef296f17c;hpb=a9d46f9399516b6a48cb12bffd812024a802a264;p=huawei.git

diff --git a/qcdm.pl b/qcdm.pl
index 693e48d..03b20e2 100755
--- a/qcdm.pl
+++ b/qcdm.pl
@@ -53,7 +53,7 @@ sub crc {
 
 
 
-my $device = $ENV{DEVICE} || '/dev/ttyUSB2'; # last device! control port!
+my $device = shift @ARGV || $ENV{DEVICE} || '/dev/ttyUSB2'; # last device! control port!
 
 my $port = Device::SerialPort->new( $device ) || die "$device: $!";
 $port->baudrate(115200) || die "fail $device baudrate";