[padb] r451 committed - Add regexp for supporting gdb 7.5.x....

[padb at googlecode.com]

Revision: 451
Author:   apittman at gmail.com
Date:     Tue Jul  2 13:45:57 2013
Log:      Add regexp for supporting gdb 7.5.x.

Somewhere between gdb 7.2.x and 7.5.x, gdb started printing additional
information at the end of the value= line that needs to be stripped
off.  This secondary regex will strip off this extra gorp if it's
there.

This patch comes from Jeff Squyres <jsquyres at cisco.com>

http://code.google.com/p/padb/source/detail?r=451

Modified:
  /trunk/src/padb

=======================================
--- /trunk/src/padb	Tue Jul  2 13:43:39 2013
+++ /trunk/src/padb	Tue Jul  2 13:45:57 2013
@@ -6836,7 +6836,13 @@
  sub gdb_strip_value {
      my ($str) = @_;
      if ( $str =~ m{\Avalue="([^"]+)"\z}x ) {
-        return $1;
+        # Somewhere between gdb 7.2.x and 7.5.x, gdb started printing
+        # additional information at the end of the value= line that
+        # needs to be stripped off.  This secondary regex will strip
+        # off this extra gorp if it's there.
+        my $tmp = $1;
+        $tmp =~ s/(.+?)\s<\S+>$/$1/;
+        return $tmp;
      }
      return;
  }