summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-02 23:42:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-02 23:42:08 +0000
commit0ac2e5eb18fa2468e906f1835773d8d839ffa9fe (patch)
tree263f77f4d73741fb1a0a905dae3b4c8ad994ecda /perl-install/interactive_gtk.pm
parent74084f09177bcabe7981c8f04639d1d44431704c (diff)
downloaddrakx-0ac2e5eb18fa2468e906f1835773d8d839ffa9fe.tar
drakx-0ac2e5eb18fa2468e906f1835773d8d839ffa9fe.tar.gz
drakx-0ac2e5eb18fa2468e906f1835773d8d839ffa9fe.tar.bz2
drakx-0ac2e5eb18fa2468e906f1835773d8d839ffa9fe.tar.xz
drakx-0ac2e5eb18fa2468e906f1835773d8d839ffa9fe.zip
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm2
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 $_) {