提交 2ecc1505 编写于 作者: D Dr. Stephen Henson

Tolerate mixed case and leading zeroes when comparing.

上级 3c2c4cc5
......@@ -881,7 +881,10 @@ sub next_line {
s/\s+/ /g;
# Delete trailing whitespace
s/\s+$//;
return $_;
# Remove leading zeroes
s/= 00/= /;
# Translate to upper case
return uc $_;
}
return undef;
}
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册