--- trunk/awesome-client.pl	2008/02/18 16:22:13	68
+++ trunk/awesome-client.pl	2008/02/18 21:33:37	69
@@ -5,8 +5,7 @@
 use IO::Socket;
 
 my $d = $ENV{DISPLAY};
-$d =~ s/^://;
-$d =~ s/^(\d+)\..*/$1/;
+$d =~ s/^:(\d+).*$/$1/;
 my $path = "$ENV{HOME}/.awesome_ctl.$d";
 
 die "$path doesn't exist!\n" unless -e $path;