Allow easier debugging

dmx/DMX.pm

@@ -4,6 +4,7 @@ use warnings;
 use File::Temp;
 use IO::Select;
 use IO::Socket::UNIX;
+use Sys::Hostname;
 
 # Package name
 package DMX;
@@ -30,7 +31,15 @@ my %CHANNEL_ADJ = (
 
 # Sanity check
 if (!-d $DATA_DIR) {
-	die('Data directory not available: ' . $DATA_DIR . "\n");
+
+	# Allow use on dev systems without the full environment
+	my $hostname = Sys::Hostname::hostname();
+	if ($hostname =~ /baldwin/i || $hostname =~ /archer/i) {
+		print STDERR 'Ignoring missing DATA_DIR due to hostname: ' . $hostname . ". Using TEMP_DIR directly...\n";
+		$DATA_DIR = $TEMP_DIR;
+	} else {
+		die('Data directory not available: ' . $DATA_DIR . "\n");
+	}
 }
 
 # State
@@ -140,7 +149,7 @@ sub parseState($$$) {
 				next;
 			}
 			$exists->{$name} = $value ? $value : 0;
-			$mtime->{$name}  = $time ? $time : 0;
+			$mtime->{$name}  = $time  ? $time  : 0;
 		}
 	}
 	if ($DEBUG) {