From 30fbd9353f9ad664d78f52498fd9d814078eb475 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sat, 11 Aug 2001 04:18:00 +0000
Subject: updated

---
 perl-install/share/theme-editor.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install/share')

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 {
-- 
cgit v1.2.1