Handle hostnames with upper-case letters

[webmin.git] / oschooser.pl

diff --git a/oschooser.pl b/oschooser.pl
old mode 100644 (file)
new mode 100755 (executable)
index 37841bc..cb7e766
--- a/oschooser.pl
+++ b/oschooser.pl
@@ -1,3 +1,4 @@
+#!/usr/local/bin/perl
 # oschooser.pl
 # Read the list of operating systems and ask the user to choose
 # an OS and version
@@ -28,7 +29,7 @@ if ($auto) {
        elsif (-r "/etc/issue") {
                $etc_issue = `cat /etc/issue`;
                }
-       $uname = `uname -a`;
+       $uname = `uname -a 2>/dev/null`;
        foreach $o (@list) {
                if ($o->[4] && eval "$o->[4]") {
                        # Got a match! Resolve the versions