diff --git a/src/tools/copyright.pl b/src/tools/copyright.pl
index e91672ec55f8697cf37b9ff8dd8d322e0168bd06..524f285b6a9b9532b23aeac237bdf9185f9a25f8 100755
--- a/src/tools/copyright.pl
+++ b/src/tools/copyright.pl
@@ -37,16 +37,16 @@ sub wanted
 
 	# 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