diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-20 16:57:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-20 16:57:31 +0000 |
| commit | d37a5bb1d073c43d40a5ed585dfff03d23fd439d (patch) | |
| tree | 6ede0ef65447380ef19a31be63234a4e8ee78ed9 /perl-install/standalone/drakperm | |
| parent | a64d595bfe7eaf661ac339e815a1a978b1ee028e (diff) | |
| download | drakx-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-x | perl-install/standalone/drakperm | 4 |
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++; } |