summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 33424343a..a42525e7b 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -6,7 +6,7 @@ use lib qw(/usr/lib/libDrakX);
use standalone;
use common;
-use ugtk2 qw(:helpers :wrappers :create);
+use ugtk2 qw(:create :dialogs :helpers :wrappers);
$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakperm-mdk.png";
require_root_capability();
@@ -376,6 +376,11 @@ sub row_setting_dialog {
ok_clicked => sub {
my ($path, $user, $group, $perms, $_idx);
$path = $file->get_text;
+ if ($path !~ m!^/!) {
+ print "checking '$path'\n";
+ warn_dialog(N("Warning"), N("The first character of the path must be a slash (\"/\"):\n\"%s\"", $path)) or return;
+ return 1;
+ }
if ($usr_check->get_active) {
$user = 'current';
$group = '';