Cleaned up println()
This commit is contained in:
1 parent
359f64649f
commit
3d2bee79f1
1 file changed
+1
-15
@@ -20,21 +20,7 @@ sub println
|
||||
return;
|
||||
}
|
||||
|
||||
my ($nl);
|
||||
if ($^O =~ /dos/i or $^O =~ /win/i or $^O =~ /netware/i) {
|
||||
$nl = "\r\n";
|
||||
}
|
||||
elsif ($^O =~ /linux/i or $^O =~ /bsd/i) {
|
||||
$nl = "\n";
|
||||
}
|
||||
elsif ($^O =~ /mac/i or $^O =~ /darwin/i) {
|
||||
$nl = "\r";
|
||||
}
|
||||
else {
|
||||
$nl = "\r\n";
|
||||
}
|
||||
|
||||
print $out.$nl;
|
||||
print $out.$/;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
Reference in new issue
Block a user