diff options
| author | damien <damien@mandriva.com> | 2001-08-11 04:18:00 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-11 04:18:00 +0000 |
| commit | 30fbd9353f9ad664d78f52498fd9d814078eb475 (patch) | |
| tree | 84b3855a688bea9d53b164deb2215f8113ce4c1b /perl-install | |
| parent | 3e2814af22221ae54b8c20d8237fce5865af0d24 (diff) | |
| download | drakx-backup-do-not-use-30fbd9353f9ad664d78f52498fd9d814078eb475.tar drakx-backup-do-not-use-30fbd9353f9ad664d78f52498fd9d814078eb475.tar.gz drakx-backup-do-not-use-30fbd9353f9ad664d78f52498fd9d814078eb475.tar.bz2 drakx-backup-do-not-use-30fbd9353f9ad664d78f52498fd9d814078eb475.tar.xz drakx-backup-do-not-use-30fbd9353f9ad664d78f52498fd9d814078eb475.zip | |
updated
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/share/theme-editor.pl | 8 |
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 { |