warn ($msg =~ m/\n$/) ? $msg : ($msg . "\n");