index 2ef35d252567518545c9cb6a7a50c5fe822681a7..a55228d6ec886b45c2c41053151959c19db46410 100755 (executable)
# skip file names with binary extensions
# How are these updated? bjm 2012年01月02日
- return
- if (
- $_ =~ m/\.(ico|bin)$);
+ return if ($_ =~ m/\.(ico|bin)$/);
- my @lines;
- tie @lines, "Tie::File", $File::Find::name;
+ my @lines;
+ tie @lines, "Tie::File", $File::Find::name;
- foreach my $line (@lines) {
- # We only care about lines with a copyright notice.
- next unless $line =~ m/$cc . *$pgdg /;
+ foreach my $line (@lines)
+ {
+
+ # We only care about lines with a copyright notice.
+ next unless $line =~ m/$cc . *$pgdg /;
# We stop when we've done one substitution. This is both for
# efficiency and, at least in the case of this program, for