equal
deleted
inserted
replaced
153 my $msg = |
153 my $msg = |
154 sprintf "need: 0%04o root:%s, got: 0%04o %s:%s\n", |
154 sprintf "need: 0%04o root:%s, got: 0%04o %s:%s\n", |
155 $mode, $group, $f_mode, $f_owner, $f_group; |
155 $mode, $group, $f_mode, $f_owner, $f_group; |
156 |
156 |
157 if (-f '/etc/debian_version') { |
157 if (-f '/etc/debian_version') { |
158 $msg .= sprintf "try dpkg-statoverride --update --add root %sgroup 0%04o %s\n", |
158 $msg .= sprintf "try dpkg-statoverride --update --add root %s 0%04o %s\n", |
159 $group, $mode, $file; |
159 $group, $mode, $file; |
160 } |
160 } |
161 |
161 |
162 die $msg unless $f_owner eq $owner; |
162 die $msg unless $f_owner eq $owner; |
163 die $msg unless $f_group eq $group; |
163 die $msg unless $f_group eq $group; |