sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

$NEWLINE is no longer used.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
install
-5
View File
@@ -62,7 +62,6 @@ sub modfind
# Check operating system. # Check operating system.
print "Checking operating system..... $^O - "; print "Checking operating system..... $^O - ";
my ($NEWLINE);
if ($^O =~ /dos/i) { if ($^O =~ /dos/i) {
print "DOS is not supported.\r\n"; print "DOS is not supported.\r\n";
} }
@@ -74,22 +73,18 @@ elsif ($^O eq "NetWare") {
} }
elsif ($^O eq "linux") { elsif ($^O eq "linux") {
print "OK\n"; print "OK\n";
$NEWLINE = "\n";
} }
elsif ($^O eq "os2") { elsif ($^O eq "os2") {
print "IBM OS/2 is not supported.\r\n"; print "IBM OS/2 is not supported.\r\n";
} }
elsif ($^O =~ /mac/i or $^O =~ /darwin/i) { elsif ($^O =~ /mac/i or $^O =~ /darwin/i) {
print "OK\r"; print "OK\r";
$NEWLINE = "\r";
} }
elsif ($^O eq "freebsd") { elsif ($^O eq "freebsd") {
print "OK\n"; print "OK\n";
$NEWLINE = "\n";
} }
elsif ($^O eq "openbsd") { elsif ($^O eq "openbsd") {
print "OK\n"; print "OK\n";
$NEWLINE = "\n";
} }
else { else {
print "Unknown operating system. Contact support.\r\n"; print "Unknown operating system. Contact support.\r\n";