[au1000] refresh patches

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

diff --git a/scripts/adam2flash-502T.pl b/scripts/adam2flash-502T.pl
index 6d1bf3c..0ed296d 100644 (file)
--- a/scripts/adam2flash-502T.pl
+++ b/scripts/adam2flash-502T.pl
@@ -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?";
 
 #