equal
deleted
inserted
replaced
343 $mode &= 07777; |
343 $mode &= 07777; |
344 for (@lines) { |
344 for (@lines) { |
345 next unless /^\s*file\s+"([^"]*)"\s*;\s*$/; |
345 next unless /^\s*file\s+"([^"]*)"\s*;\s*$/; |
346 $czf = $1; |
346 $czf = $1; |
347 $files++; |
347 $files++; |
348 $_ = qq(\tfile "$zf";) and $changed++ unless $czf =~ m#\Q$z/$z$suf\E$#; |
348 $_ = qq(\tfile "$zf";\n) and $changed++ unless $czf =~ m#\Q$z/$z$suf\E$#; |
349 } |
349 } |
350 |
350 |
351 die "Multiple file statements found in '$cf' (maybe inside multiline comments)" if $files > 1; |
351 die "Multiple file statements found in '$cf' (maybe inside multiline comments)" if $files > 1; |
352 next unless $changed; |
352 next unless $changed; |
353 |
353 |