Fixed bug of input fields with a number as default input not allowing to enter more characters than the value of the number.

1 files changed, 6 insertions, 1 deletions

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 67d8ddd68..643cee9c3 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -424,7 +424,12 @@ sub ask_from_entries_refW {
 		$w->disable_activate;
 		($real_w, $w) = ($w, $w->entry);
 	    } else {
-		$w = new Gtk::Entry(${$e->{val}});
+                # ${...} removed here, it causes a number given as default
+                # value in addition being interpreted as the maximum length
+                # of the field, so a field with '1' or '1.0' as default
+                # allows only 1 character to be entered.
+                # $w = new Gtk::Entry(${$e->{val}});
+                $w = new Gtk::Entry($e->{val});		
 	    }
 	    $w->signal_connect(key_press_event => $may_go_to_next);
 	    $w->signal_connect(changed => $changed);