--- trunk/dwm-status.pl 2008/01/17 17:05:45 58 +++ trunk/dwm-status.pl 2008/01/18 19:10:10 59 @@ -8,7 +8,7 @@ use POSIX qw/strftime/; use File::Slurp; use Time::HiRes; -eval "use Data::Dump qw/dump/;"; +use Data::Dump qw/dump/; my $dt = 3; my $acpi_every = 10; @@ -17,8 +17,6 @@ my $debug = shift @ARGV; -my $awesome = 0; - $|=1; sub proc2hash { @@ -96,10 +94,6 @@ my $i = 0; -if ( $awesome ) { - undef $awesome; - open( $awesome, '|-', 'awesome-client' ) || die "can't open awesome-client: $!"; -} while ( 1 ) { my $s = strftime("%Y-%m-%d %H:%M:%S", localtime()); @@ -192,11 +186,7 @@ $bat, $temp, ); - if ( $awesome ) { - print $awesome "0 statusbar_set_text $out"; - } else { - print $out; - } + print $out; sleep $dt; }