diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-02 23:42:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-02 23:42:08 +0000 |
| commit | 0ac2e5eb18fa2468e906f1835773d8d839ffa9fe (patch) | |
| tree | 263f77f4d73741fb1a0a905dae3b4c8ad994ecda /perl-install/interactive_gtk.pm | |
| parent | 74084f09177bcabe7981c8f04639d1d44431704c (diff) | |
| download | drakx-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.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 $_) { |