* lib/gdb.exp (build_id_debug_filename_get): Don't assume new

	`regsub' syntax available.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e2594c69735d6531400d87e1f1a29cc3d3040f86..518118ce5d11a97448e271758fc2e781aa63e041 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-17  Pedro Alves  <[email protected]>
+
+       * lib/gdb.exp (build_id_debug_filename_get): Don't assume new
+       `regsub' syntax available.
+
 2010-02-17  Pedro Alves  <[email protected]>
 
        * gdb.base/shmain.c (main): Remove printf call.

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index a42d5517f60a5feafae1fc3fd68ac6b18e8d6be2..627941d6d1e62effe0309ce9898a0c8127dea9c9 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -2830,7 +2830,7 @@ proc build_id_debug_filename_get { exec } {
     }
     # Convert it to hex.
     binary scan $data H* data
-    set data [regsub {^..} $data {\0/}]
+    regsub {^..} $data {\0/} data
     return ".build-id/${data}.debug";
 }