Cleaned up println()

This commit is contained in:
Elijah Perrault committed 2011-01-21 18:49:01 -07:00
1 parent dda0b7785b
commit 359f64649f
1 file changed
+1 -15
+1 -15
View File
@@ -24,21 +24,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;
}