$NEWLINE is no longer used.

This commit is contained in:
Elijah Perrault committed 2011-01-20 16:48:57 -07:00
1 parent b6069b1424
commit 0bc1cc17af
1 file changed
-5
-5
View File
@@ -62,7 +62,6 @@ sub modfind
# Check operating system.
print "Checking operating system..... $^O - ";
my ($NEWLINE);
if ($^O =~ /dos/i) {
print "DOS is not supported.\r\n";
}
@@ -74,22 +73,18 @@ elsif ($^O eq "NetWare") {
}
elsif ($^O eq "linux") {
print "OK\n";
$NEWLINE = "\n";
}
elsif ($^O eq "os2") {
print "IBM OS/2 is not supported.\r\n";
}
elsif ($^O =~ /mac/i or $^O =~ /darwin/i) {
print "OK\r";
$NEWLINE = "\r";
}
elsif ($^O eq "freebsd") {
print "OK\n";
$NEWLINE = "\n";
}
elsif ($^O eq "openbsd") {
print "OK\n";
$NEWLINE = "\n";
}
else {
print "Unknown operating system. Contact support.\r\n";