This adds a test for unnecessary \s+$ for pulldown menu for uml options.

This commit is contained in:
freesource
2001-08-20 18:04:10 +00:00
parent e6b7fb3d42
commit 2dc142d3f0
+3 -1
View File
@@ -1134,7 +1134,8 @@ sub uml_box {
$eab2->entry->signal_connect("changed", sub {
$entry_advanced[9] = $eab2->entry->get_text();
open(OPTIONS,">$home_uml_kernel/.options");
$entry_advanced[9] =~ s/\n/ /g;
$entry_advanced[9] =~ s/\n//g;
$entry_advanced[9] =~ s/\s+$//g;
print OPTIONS "$entry_advanced[9]\n";
foreach (@initial_options) {
if ($_ ne "$entry_advanced[9]") {
@@ -1148,6 +1149,7 @@ sub uml_box {
"" );
$eab2->show();
#_______________________________________
# Root Filesystem defaults to generated one if found.
label_advanced("Root_Fs:",0,1,2,3,$table_uml);