From 3ca1685044f425cba5a7fc92dfad4fc9feaadab7 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 26 Feb 2011 20:09:40 -0700
Subject: [PATCH] Needs more exit.

---
 install | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/install b/install
index 75d3219..8e8d246 100755
--- a/install
+++ b/install
@@ -59,18 +59,22 @@ eval {
 print "Checking operating system..... $OSNAME - ";
 if ($OSNAME =~ /dos/i) {
     print "DOS is not supported.\r\n";
+    exit;
 }
 elsif ($OSNAME eq "MSWin32") {
     print "Microsoft Windows is not supported. Support is planned for the future.\r\n";
+    exit;
 }
 elsif ($OSNAME eq "NetWare") {
     print "NetWare is not supported.\r\n";
+    exit;
 }
 elsif ($OSNAME eq "linux") {
     print "OK\n";
 }
 elsif ($OSNAME eq "os2") {
     print "IBM OS/2 is not supported.\r\n";
+    exit;
 }
 elsif ($OSNAME =~ /mac/i or $OSNAME =~ /darwin/i) {
     print "OK\r";
@@ -83,6 +87,7 @@ elsif ($OSNAME eq "openbsd") {
 }
 else {
     print "Unknown operating system. Contact support.\r\n";
+    exit;
 }    	
 
 # Check for Perl core modules.