summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-20 16:57:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-20 16:57:31 +0000
commitd37a5bb1d073c43d40a5ed585dfff03d23fd439d (patch)
tree6ede0ef65447380ef19a31be63234a4e8ee78ed9 /perl-install/standalone/drakperm
parenta64d595bfe7eaf661ac339e815a1a978b1ee028e (diff)
downloaddrakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.gz
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.bz2
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.xz
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.zip
misc perl_checker cleanups
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 0b1f09b05..56ed69920 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -194,7 +194,7 @@ sub save_perm() {
my $val;
if ($modified) {
local *F;
- open F, '>' . $perm_files{editable} or die("Impossible to process \"", $perm_files{editable}, "\"");
+ open F, '>' . $perm_files{editable} or die(qq(Impossible to process "$perm_files{editable}"));
$model->foreach(sub {
my ($model, $_path, $iter) = @_;
return 0 if $model->get($iter, 0);
@@ -224,7 +224,7 @@ sub load_perms() {
} elsif (m/^(\S+)\s+current?\s+(\d+)/) {
push @rules, { @editable, path => $1, user => 'current', group => '', perms => $2, index => $index };
} else {
- warn "unparsable \"$_\"line";
+ warn qq(unparsable "$_"line);
}
$index++;
}