From 4e4646ec0a56393453e36f68d8d9cefb26fade4f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 12 Oct 2005 12:14:53 +0000
Subject: perl_checker cleanup

---
 perl-install/standalone/drakperm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/drakperm')

diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index eb59bf13a..37ae77249 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -241,7 +241,7 @@ sub row_setting_dialog {
 #    $dlg->set_resizable(0);
     my $browse = Gtk2::Button->new(N("browse"));
     my $file        = Gtk2::Entry->new;
-    my ($other, $group, $user, $s) = reverse(split(//, $model->get($o_iter, 4))) if $o_iter;
+    my ($other, $group, $user, $s) = $o_iter ? reverse(split(//, $model->get($o_iter, 4))) : ();
     my @bits = qw(sticky gid suid);
     my @rights = qw(read write execute);
     my @owners = (N_("user"), N_("group"), N_("other"));
-- 
cgit v1.2.1