diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-03-14 23:17:19 +0000 |
|---|---|---|
| committer | Tim Retout <tim@retout.co.uk> | 2012-03-14 23:18:47 +0000 |
| commit | 859f601e10f876b2121fbbf6a65d66d017c77d8c (patch) | |
| tree | db9fe38abb735e64f46506a1102db9845a4618c2 /solenv/bin/modules/installer/files.pm | |
| parent | 20179059537b3ff345ffe7473408f1182fc24079 (diff) | |
Replace installer::files::save_array_of_hashes with Data::Dumper.
Note that this will change the format of the fileinfo log, hopefully
making it a bit more human-readable.
Diffstat (limited to 'solenv/bin/modules/installer/files.pm')
| -rw-r--r-- | solenv/bin/modules/installer/files.pm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/solenv/bin/modules/installer/files.pm b/solenv/bin/modules/installer/files.pm index 1d9e7705166f..26715ed919c9 100644 --- a/solenv/bin/modules/installer/files.pm +++ b/solenv/bin/modules/installer/files.pm @@ -95,34 +95,6 @@ sub save_file } } -sub save_array_of_hashes -{ - my ($savefile, $arrayref) = @_; - - my @printcontent = (); - - for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) - { - my $line = ""; - my $hashref = ${$arrayref}[$i]; - my $itemkey; - - foreach $itemkey ( keys %{$hashref} ) - { - my $itemvalue = $hashref->{$itemkey}; - $line = $line . $itemkey . "=" . $itemvalue . "\t"; - } - - $line = $line . "\n"; - - push(@printcontent, $line); - } - - open( OUT, ">$savefile" ) || installer::exiter::exit_program("ERROR: Cannot open file $savefile for writing", "save_array_of_hashes"); - print OUT @printcontent; - close( OUT); -} - ########################################### # Binary file operations ########################################### |