projects
/
openwrt
/
openwrt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mtd-utils: revert faulty upstream patch for now
[openwrt/openwrt.git]
/
scripts
/
remote-gdb
diff --git
a/scripts/remote-gdb
b/scripts/remote-gdb
index cd59033e7a5399d0ee6206f219120fa1deeea359..99c9d386d3862fa2c0a35b71cdcce9febdd7f3e9 100755
(executable)
--- a/
scripts/remote-gdb
+++ b/
scripts/remote-gdb
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/bin/
env
perl
use strict;
use warnings;
use strict;
use warnings;
@@
-14,7
+14,7
@@
if( opendir SD, "$Bin/../staging_dir" )
{
my ( $tid, $arch, $libc, @arches );
{
my ( $tid, $arch, $libc, @arches );
- if( $ARGV[1] =~ m!\btarget-(.+?)_(([^/_]+libc|musl)[^/
]+
)\b!i )
+ if( $ARGV[1] =~ m!\btarget-(.+?)_(([^/_]+libc|musl)[^/
_]*
)\b!i )
{
print("Using target $1 ($2)\n");
($arch, $libc) = ($1, $2);
{
print("Using target $1 ($2)\n");
($arch, $libc) = ($1, $2);
@@
-26,7
+26,7
@@
if( opendir SD, "$Bin/../staging_dir" )
while( defined( my $e = readdir SD ) )
{
while( defined( my $e = readdir SD ) )
{
- if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-(.+?)_(([^_]+libc|musl).
+
)/i )
+ if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-(.+?)_(([^_]+libc|musl).
*
)/i )
{
push @arches, [ $1, $2 ];
printf(" %2d) %s (%s)\n", @arches + 0, $1, $2);
{
push @arches, [ $1, $2 ];
printf(" %2d) %s (%s)\n", @arches + 0, $1, $2);
@@
-58,7
+58,7
@@
if( opendir SD, "$Bin/../staging_dir" )
my ( $fh, $fp ) = tempfile();
# Find sysroot
my ( $fh, $fp ) = tempfile();
# Find sysroot
- my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}/root-*/");
+ my ($sysroot) = glob("$Bin/../staging_dir/target-${arch}_${libc}
*
/root-*/");
print $fh "set sysroot $sysroot\n" if $sysroot;
my $cmd = "target extended-remote";
print $fh "set sysroot $sysroot\n" if $sysroot;
my $cmd = "target extended-remote";