[padb] r437 committed - Remove a warning from perl about missing frame names when running in m...

[padb at googlecode.com]

Revision: 437
Author:   apittman at gmail.com
Date:     Tue May 17 14:06:57 2011
Log:      Remove a warning from perl about missing frame names when running  
in mpi-watch mode.

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

Modified:
  /trunk/src/padb

=======================================
--- /trunk/src/padb	Wed Mar 30 15:10:37 2011
+++ /trunk/src/padb	Tue May 17 14:06:57 2011
@@ -9219,7 +9219,7 @@
              my @frames = @{ $thread->{frames} };
              foreach my $i ( reverse 0 .. $#frames ) {
                  my $frame = $frames[$i];
-                if ( defined $fns->{fns}{ $frame->{func} } ) {
+                if ( defined $frame->{func} and defined $fns->{fns}{  
$frame->{func} } ) {
                      $fnmode = $fns->{fns}{ $frame->{func} };
                      last;
                  }