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

More cleaning.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-22 10:08:12 -07:00
1 parent 532ab47d6c
commit d9786db1ab
1 file changed
+11 -10
Download Patch File Download Diff File Expand all files Collapse all files
install
+11 -10
View File
@@ -5,6 +5,7 @@
# This program is free software; rights to this code are stated in doc/LICENSE. # This program is free software; rights to this code are stated in doc/LICENSE.
use strict; use strict;
use warnings; use warnings;
use English;
use FindBin qw($Bin); use FindBin qw($Bin);
our $Bin = $Bin; our $Bin = $Bin;
@@ -47,29 +48,29 @@ sub modfind
# Check operating system. # Check operating system.
print "Checking operating system..... $^O - "; print "Checking operating system..... $OSNAME - ";
if ($^O =~ /dos/i) { if ($OSNAME =~ /dos/i) {
print "DOS is not supported.\r\n"; print "DOS is not supported.\r\n";
} }
elsif ($^O 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";
} }
elsif ($^O eq "NetWare") { elsif ($OSNAME eq "NetWare") {
print "NetWare is not supported.\r\n"; print "NetWare is not supported.\r\n";
} }
elsif ($^O eq "linux") { elsif ($OSNAME eq "linux") {
print "OK\n"; print "OK\n";
} }
elsif ($^O eq "os2") { elsif ($OSNAME 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 ($OSNAME =~ /mac/i or $OSNAME =~ /darwin/i) {
print "OK\r"; print "OK\r";
} }
elsif ($^O eq "freebsd") { elsif ($OSNAME eq "freebsd") {
print "OK\n"; print "OK\n";
} }
elsif ($^O eq "openbsd") { elsif ($OSNAME eq "openbsd") {
print "OK\n"; print "OK\n";
} }
else { else {
@@ -118,7 +119,7 @@ print $FTIME time."\n" or println "Failed to install." and exit;
close $FTIME or println "Failed to install." and exit; close $FTIME or println "Failed to install." and exit;
open(my $FOS, q{>}, "$Bin/build/os") or println "Failed to install." and exit; open(my $FOS, q{>}, "$Bin/build/os") or println "Failed to install." and exit;
print $FOS $^O."\n" or println "Failed to install." and exit; print $FOS $OSNAME."\n" or println "Failed to install." and exit;
close $FOS or println "Failed to install." and exit; close $FOS or println "Failed to install." and exit;
open(my $FPERL, q{>}, "$Bin/build/perl") or println "Failed to install." and exit; open(my $FPERL, q{>}, "$Bin/build/perl") or println "Failed to install." and exit;