+ if (defined($config->{perms})) {
+ my $wrong = 0;
+ my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
+ $atime, $mtime, $ctime, $blksize, $blocks) = stat("$PWD/$udev_root$config->{expected}");
+
+ $config->{perms} =~ m/^(.*):(.*):(.*)$/;
+ if ($1 ne "") {
+ if ($uid != $1) { $wrong = 1; };
+ }
+ if ($2 ne "") {
+ if ($gid != $2) { $wrong = 1; };
+ }
+ if ($3 ne "") {
+ if (($mode & 07777) != oct($3)) { $wrong = 1; };
+ }
+ if ($wrong == 1) {
+ printf "expected permissions are: %i:%i:%#o\n", $1, $2, oct($3);
+ printf "created permissions are : %i:%i:%#o\n", $uid, $gid, $mode & 07777;
+ }
+ }