Perl critic complained this sub didn't return.

Scott Baker · Scott Baker · commit 8e513c56d1dd · 2016-03-08T14:09:01.000-08:00
Sub operates pass-by-reference so it doesn't matter, but I'll fix it
anyway
diff --git a/libs/header_clean/header_clean.pl b/libs/header_clean/header_clean.pl
@@ -112,4 +112,6 @@ sub strip_empty_first_line {
 	if (defined($array->[0]) && $array->[0] =~ /^\s*$/) {
 		shift(@$array); # Throw away the first line
 	}
+
+	return 1;
 }

Original file line number	Diff line number	Diff line change
`@@ -112,4 +112,6 @@ sub strip_empty_first_line {`
`112`	`112`	`if (defined($array->[0]) && $array->[0] =~ /^\s*$/) {`
`113`	`113`	`shift(@$array); # Throw away the first line`
`114`	`114`	`}`
	`115`	`+`
	`116`	`+ return 1;`
`115`	`117`	`}`