diff options
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 66a714221..98beacdc7 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -87,7 +87,7 @@ sub ask_from_treelistW { }; my ($root, $leaf, $wdef, $ndef); foreach (@$l) { - ($root, $leaf) = /(.*)$sep(.+)/o or ($root, $leaf) = ('', $_); + ($root, $leaf) = /(.*)$sep(.+)/ or ($root, $leaf) = ('', $_); my $node = $tree->insert_node($parent->($root), undef, [$leaf], 5, (undef) x 4, 1, 0); if ($def eq $_) { |