From 0ac2e5eb18fa2468e906f1835773d8d839ffa9fe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 2 May 2000 23:42:08 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive_gtk.pm')

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 $_) {
-- 
cgit v1.2.1