We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 31cbe1e commit a92e9cfCopy full SHA for a92e9cf
libs/header_clean/header_clean.pl
@@ -109,7 +109,7 @@ sub strip_empty_first_line {
109
my $foo = shift(); # Array passed in by reference
110
111
# If the first line is just whitespace remove it
112
- if ($foo->[0] =~ /^\s*$/) {
+ if (defined($foo->[0]) && $foo->[0] =~ /^\s*$/) {
113
shift($foo);
114
}
115
0 commit comments