Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 15 lines (8 sloc) 0.259 kB
#!/usr/bin/perl -w
use strict;
my $ADB = 'adb';
my %devices = ( A => '0149A97C0F012017',
B => '014696C50601901F' );
my ( $device, @command ) = @ARGV;
die unless exists $devices{ $device };
exec { $ADB } ( 'adb', '-s', $devices{ $device }, @command );
Jump to Line
Something went wrong with that request. Please try again.