summaryrefslogtreecommitdiffstats
path: root/perl-install/share
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/share')
-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 {