Cleaned up println()

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