- my($r_hash) = @_;
- my($key, $val);
- ++$level;
- print_indented ("{ # $r_hash");
- while (($key, $val) = each %$r_hash) {
- $val = ($val ? $val : '""');
+ my ($r_hash) = @_;
+ my ( $key, $val );
+ ++$level;
+ print_indented("{ # $r_hash");
+ while ( ( $key, $val ) = each %$r_hash ) {
+ $val = ( $val ? $val : '""' );