Changeset 34119

Timestamp:

2012-11-08T12:24:15+01:00 (5 years ago)

Author:

jow

Message:

AA: scripts: backport r34118

File:

• branches/attitude_adjustment/scripts/remote-gdb (modified) (2 diffs)

branches/attitude_adjustment/scripts/remote-gdb

@@ -15 +15 @@
         my ( $tid, $arch, $libc, @arches );
 
-        if( $ARGV[1] =~ m!\btarget-(.+?)_([^_]+libc[^_/]+)\b!i )
+        if( $ARGV[1] =~ m!\btarget-(.+?)_([^_]+libc[^/]+)\b!i )
         {
                 print("Using target $1 ($2)\n");
@@ -27 +27 @@
                 while( defined( my $e = readdir SD ) )
                 {
-                        if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-(.+?)_([^_]+libc[^_]+)/i )
+                        if( -d "$Bin/../staging_dir/$e" && $e =~ /^target-(.+?)_([^_]+libc.+)/i )
                         {
                                 push @arches, [ $1, $2 ];