[padb-devel] [padb] r243 committed - Fix a bug introduced in r240, use a hash rather than a hash reference ...

[codesite-noreply at google.com]

Revision: 243
Author: apittman
Date: Sun Sep 13 16:09:04 2009
Log: Fix a bug introduced in r240, use a hash rather than a hash reference  
for
populating string lengths.

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

Modified:
  /branches/cleanup/src/padb

=======================================
--- /branches/cleanup/src/padb	Sun Sep 13 15:51:12 2009
+++ /branches/cleanup/src/padb	Sun Sep 13 16:09:04 2009
@@ -6375,7 +6375,7 @@
      my ( $vp, $frame, $type ) = @_;
      return unless defined $frame->{$type};
      return if ( @{ $frame->{$type} } == 0 );
-    my %l = { t => 0, n => 0 };
+    my %l = ( t => 0, n => 0 );
      foreach my $arg ( @{ $frame->{$type} } ) {
          $l{t} = length $arg->{type} if ( length $arg->{type} > $l{t} );
          $l{n} = length $arg->{name} if ( length $arg->{name} > $l{n} );