From d37a5bb1d073c43d40a5ed585dfff03d23fd439d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 20 Oct 2003 16:57:31 +0000
Subject: misc perl_checker cleanups

---
 perl-install/standalone/drakperm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

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++;
         }
-- 
cgit v1.2.1