summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-11 04:18:00 +0000
committerdamien <damien@mandriva.com>2001-08-11 04:18:00 +0000
commit30fbd9353f9ad664d78f52498fd9d814078eb475 (patch)
tree84b3855a688bea9d53b164deb2215f8113ce4c1b /perl-install
parent3e2814af22221ae54b8c20d8237fce5865af0d24 (diff)
downloaddrakx-30fbd9353f9ad664d78f52498fd9d814078eb475.tar
drakx-30fbd9353f9ad664d78f52498fd9d814078eb475.tar.gz
drakx-30fbd9353f9ad664d78f52498fd9d814078eb475.tar.bz2
drakx-30fbd9353f9ad664d78f52498fd9d814078eb475.tar.xz
drakx-30fbd9353f9ad664d78f52498fd9d814078eb475.zip
updated
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/share/theme-editor.pl8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/share/theme-editor.pl b/perl-install/share/theme-editor.pl
index 15c087e7d..fba31a346 100755
--- a/perl-install/share/theme-editor.pl
+++ b/perl-install/share/theme-editor.pl
@@ -108,7 +108,7 @@ Gtk->main;
Gtk->exit(0);
sub doit {
- system("rm $file2");
+ system("rm -f /tmp/plop");
foreach (cat_($file)) {
my $output;
chomp;
@@ -126,8 +126,12 @@ sub doit {
/\{/ and $ref++;
if (/\}/) { $ref--; $ref == 0 and undef $style }
$output ||= $_;
- system("echo '$output' >> $file2");
+ $output =~ s/ 1 / 1.0 /;
+ $output =~ s/ 1, / 1.0, /;
+ $output =~ s/ 1, / 1.0, /;
+ system("echo '$output' >> /tmp/plop");
}
+ system("mv -f /tmp/plop $file2");
}
sub change_color {