[padb-devel] [padb] r139 committed - Remove lots of commented out Dumper calls

[codesite-noreply at google.com]

Revision: 139
Author: apittman
Date: Sun Aug 23 04:19:30 2009
Log: Remove lots of commented out Dumper calls

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

Modified:
  /trunk/src/padb

=======================================
--- /trunk/src/padb	Sun Aug 23 04:16:23 2009
+++ /trunk/src/padb	Sun Aug 23 04:19:30 2009
@@ -1801,8 +1801,6 @@
          s/\n//g;
          push @data, $_;
      }
-
-    # print Dumper \@data;

      my $s = read_stats(@data);

@@ -2887,7 +2885,6 @@
  sub show_mpi_watch {
      my ( $handle, $lines ) = @_;

-    #     print Dumper $lines;
      my $s = "";
      foreach my $l ( sort { $a <=> $b } ( keys %{ $lines->{target_responce}  
} ) )
      {
@@ -4849,9 +4846,6 @@
      close( $h->{wtr} );
      close( $h->{err} );

-    # Useful for tuning the dll itself...
-    # print Dumper \%stats;
-
      return @mq;
  }

@@ -5137,8 +5131,6 @@
      }

      return "$ret";
-
-    # print Dumper \%ad;
  }

  sub deadlock_detect {
@@ -5155,7 +5147,6 @@
          $data = $lines->{lines};
      }

-    # print Dumper $data;
      my %coll_data;
      foreach my $rank ( keys( %{$data} ) ) {
          my $r = $data->{$rank};
@@ -5181,8 +5172,6 @@
          }
          $coll_data{$rank} = \%lid;
      }
-
-    # print Dumper \%coll_data;

      my $r = go_deadlock_detect( $carg, \%coll_data );
      print $r;
@@ -6778,7 +6767,6 @@
      if ( not $cdata->{trusted} ) {
          if ( $line eq "hello $netdata->{key}" ) {

-            #printf("Trusting connection from $cdata->{desc}\n");
              $cdata->{trusted} = 1;
              $cdata->{str}     = "";
              $s->printf("Welcome\n");