fix syntax errors

This commit is contained in:
Ludwig Nussel 2014-08-28 17:08:47 +02:00
parent 20084917ee
commit c4cdf92590

View File

@ -91,9 +91,9 @@ while(<FL>) {
$dirs[$n] = $3;
}
# ignore link targets and permissions of ghosts
if (oct($2) & 0100) != 0) {
if ((oct($2) & 0100) != 0) {
$lnk = '' if $lnk;
$perms ~= s/^100000/100644/;
$perms =~ s/^100000/100644/;
}
my $m = $modes{"$perms$lnk"};
if (!defined($m)) {