[perl #121112] only warn if newline is the last non-NUL character