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

Needs more exit.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-26 20:09:40 -07:00
1 parent aa1302c1bb
commit 3ca1685044
1 file changed
+5
Download Patch File Download Diff File Expand all files Collapse all files
install
+5
View File
@@ -59,18 +59,22 @@ eval {
print "Checking operating system..... $OSNAME - "; print "Checking operating system..... $OSNAME - ";
if ($OSNAME =~ /dos/i) { if ($OSNAME =~ /dos/i) {
print "DOS is not supported.\r\n"; print "DOS is not supported.\r\n";
exit;
} }
elsif ($OSNAME eq "MSWin32") { elsif ($OSNAME eq "MSWin32") {
print "Microsoft Windows is not supported. Support is planned for the future.\r\n"; print "Microsoft Windows is not supported. Support is planned for the future.\r\n";
exit;
} }
elsif ($OSNAME eq "NetWare") { elsif ($OSNAME eq "NetWare") {
print "NetWare is not supported.\r\n"; print "NetWare is not supported.\r\n";
exit;
} }
elsif ($OSNAME eq "linux") { elsif ($OSNAME eq "linux") {
print "OK\n"; print "OK\n";
} }
elsif ($OSNAME eq "os2") { elsif ($OSNAME eq "os2") {
print "IBM OS/2 is not supported.\r\n"; print "IBM OS/2 is not supported.\r\n";
exit;
} }
elsif ($OSNAME =~ /mac/i or $OSNAME =~ /darwin/i) { elsif ($OSNAME =~ /mac/i or $OSNAME =~ /darwin/i) {
print "OK\r"; print "OK\r";
@@ -83,6 +87,7 @@ elsif ($OSNAME eq "openbsd") {
} }
else { else {
print "Unknown operating system. Contact support.\r\n"; print "Unknown operating system. Contact support.\r\n";
exit;
} }
# Check for Perl core modules. # Check for Perl core modules.