Cleaned up println()
This commit is contained in:
1 parent
dda0b7785b
commit
359f64649f
1 file changed
+1
-15
+1
-15
@@ -24,21 +24,7 @@ sub println
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
my ($nl);
|
print $out.$/;
|
||||||
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;
|
|
||||||
|
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in new issue
Block a user