oops; hashes were getting printed twice in certain cases...

harmless but wasteful
This commit is contained in:
Sitaram Chamarty 2012-11-28 05:49:48 +05:30
parent d2214b06b5
commit 72e36f32aa

View file

@ -311,8 +311,7 @@ sub store_common {
} }
} }
$dumped_data = Data::Dumper->Dump( [ \%patterns ], [qw(*patterns)] ) if %patterns; print $compiled_fh Data::Dumper->Dump( [ \%patterns ], [qw(*patterns)] ) if %patterns;
print $compiled_fh $dumped_data;
print $compiled_fh Data::Dumper->Dump( [ \%split_conf ], [qw(*split_conf)] ) if %split_conf; print $compiled_fh Data::Dumper->Dump( [ \%split_conf ], [qw(*split_conf)] ) if %split_conf;