merge r17576 to 8.09
[openwrt/svn-archive/archive.git] / scripts / adam2flash-502T.pl
index 6d1bf3ce1b5e3e38a74dc04a2ca9e9065c58a347..0ed296d60f1e86b246ee4ac715d220616ccaa763 100644 (file)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 #   D-Link DSL-502T flash utility
 #
@@ -257,7 +257,7 @@ print STDERR "checking hardware.. ";
 my $prd = $ftp->getenv("ProductID");
 my $usb = $ftp->getenv("usb_prod");
 print STDERR "$prd / $usb.\n";
-($prd eq "AR7RD") or die "doesn't look like a DSL-502T?";
+($prd eq "AR7RD" || $prd eq "AR7DB") or die "doesn't look like a DSL-502T?";
 ($usb eq "DSL-502T") or die "doesn't look like a DSL-502T?";
 
 #