summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-06 16:07:40 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-06 16:07:40 +0000
commitfcb7a7502e4473578061391c3e5ae3ebb597094d (patch)
treebf0f713b0a2f55942de67b1394882cb0b2699b8a /perl-install/install_any.pm
parentbd015270b1ba481843d18120a281c209fe804244 (diff)
downloaddrakx-fcb7a7502e4473578061391c3e5ae3ebb597094d.tar
drakx-fcb7a7502e4473578061391c3e5ae3ebb597094d.tar.gz
drakx-fcb7a7502e4473578061391c3e5ae3ebb597094d.tar.bz2
drakx-fcb7a7502e4473578061391c3e5ae3ebb597094d.tar.xz
drakx-fcb7a7502e4473578061391c3e5ae3ebb597094d.zip
change all 8 space into a tabulation, this is simple and may change visual
aspect but it gives correct output and filesize by 40%.
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index de879b172..52ee660ea 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -637,7 +637,7 @@ sub g_auto_install {
$_ = { %{$_ || {}} }, delete @$_{qw(oldu oldg password password2)} foreach $o->{superuser}, @{$o->{users} || []};
require Data::Dumper;
- join('',
+ my $str = join('',
"#!/usr/bin/perl -cw
#
# You should check the syntax of this file before using it in an auto-install.
@@ -649,6 +649,8 @@ qq(\npackage install_steps_auto_install;), q(
$graphical = 1;
push @graphical_steps, 'doPartitionDisks', 'choosePartitionsToFormat', 'formatMountPartitions';
)), "\0");
+ $str =~ s/ {8}/\t/g; #- replace all 8 space char by only one tabulation, this reduces file size so much :-)
+ $str;
}
@@ -666,10 +668,12 @@ sub g_default_packages {
}
require Data::Dumper;
+ my $str = Data::Dumper->Dump([ { default_packages => pkgs::selected_leaves($o->{packages}) } ], ['$o']);
+ $str =~ s/ {8}/\t/g;
output('/floppy/auto_inst.cfg',
"# You should always check the syntax with 'perl -cw auto_inst.cfg.pl'\n",
"# before testing. To use it, boot with ``linux defcfg=floppy''\n",
- Data::Dumper->Dump([ { default_packages => pkgs::selected_leaves($o->{packages}) } ], ['$o']), "\0");
+ $str, "\0");
fs::umount("/floppy");
$quiet or $o->ask_warn('', _("To use this saved packages selection, boot installation with ``linux defcfg=floppy''"));