summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-06 10:33:38 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-06 10:33:38 +0000
commite9c6665ac3bd856e38bca0685bf5b8ee34997977 (patch)
tree09a6b5aab24b82fd5d68a67313c3b73f96547415 /perl-install/install_any.pm
parent49d9689b2bd16bcda5a294e3ac9669d14f2ff2b9 (diff)
downloaddrakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar
drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar.gz
drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar.bz2
drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.tar.xz
drakx-e9c6665ac3bd856e38bca0685bf5b8ee34997977.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm20
1 files changed, 0 insertions, 20 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 633e9d6c6..654e703b3 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -422,23 +422,3 @@ sub fsck_option() {
my $y = $::o->{security} < 3 && $::beginner && "-y ";
substInFile { s/^(\s*fsckoptions=)(-y )?/$1$y/ } "$::o->{prefix}/etc/rc.d/rc.sysinit";
}
-
-sub translate_file($$%) {
- my ($inputfile, $outputfile, %toreplace) = @_;
- local *OUT; local *IN;
-
- open IN , $inputfile or die "Can't open $inputfile $!";
- if ($::testing) {
- *OUT = *STDOUT;
- } else {
- open OUT, ">$outputfile" or die "Can't open $outputfile $!";
- }
-
- while (<IN>) {
- if (/@@@(.*)@@@/) {
- my $r = $toreplace{$1};
- s/@@@(.*)@@@/$r/g;
- }
- print OUT;
- }
-}