From f1e9241e45d6d8a6300274ebb6cf8311ac1f0687 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Thu, 10 Jan 2013 16:53:25 +0900
Subject: [PATCH] work when ENV{HOSTNAME} not defined

---
 tmux.conf.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/tmux.conf.pl b/tmux.conf.pl
index 5770338..8794c97 100755
--- a/tmux.conf.pl
+++ b/tmux.conf.pl
@@ -49,16 +49,25 @@ sub set_prefs {
     set("display-panes-time", "5000");
 }
 
+sub get_hostname {
+    my $hostname = $ENV{"HOSTNAME"};
+    if (! $hostname) {
+        $hostname = `hostname`;
+        $hostname =~ s/\n//;
+    }
+    return $hostname;
+}
+
 sub set_status_line {
     my $user = $ENV{"USER"};
-    my $hostname = $ENV{"HOSTNAME"};
+    my $hostname = get_hostname();
     my $tmux_v = `tmux -V`;
     $tmux_v =~ s/\n//;
     set("status-right", "${user}\@${hostname} | ${tmux_v} ");
 }
 
 sub set_colors {
-    my $hostname = $ENV{"HOSTNAME"};
+    my $hostname = get_hostname();
     my $color = $color_prefs{$hostname};
     if (! $color) {
         $color = $color_def;