upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-12 19:20:00 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

[v9_9] fix todos bug

Browse source
This commit is contained in:
Evan Hunt 2013-07-03 15:57:50 -07:00
parent baddaf1801
commit a01e53aaf6
1 changed files with 18 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
win32utils/todos.pl
View file

@ -24,16 +24,27 @@ use strict;
use File::Find;
sub todos {
local ($^I, @ARGV) = (defined, @_);
while (<>) {
s/[\r\n]+$/\r\n/;
print;
}
local @ARGV = @_;
unshift (@ARGV, '-') unless @ARGV;
while ($ARGV = shift) {
open(FH, $ARGV);
binmode(FH);
my @lines = <FH>;
close(FH);
open(FH, ">$ARGV");
binmode(FH);
for my $line (@lines) {
$line =~ s/[\r\n]+$/\r\n/;
print FH $line;
}
close(FH);
}
}
sub wanted {
return unless -f && $_ =~ qr/\.(mak|dsp|dsw|txt|bat)$/;
todos $File::Find::dir . "/" . $_;
return unless -f && $_ =~ qr/\.(mak|dsp|dsw|txt|bat)$/;
todos $_;
}
finddepth(\&wanted, "..");