--- trunk/dwm-status.pl	2007/06/14 11:56:26	39
+++ trunk/dwm-status.pl	2007/10/02 16:32:17	56
@@ -8,7 +8,7 @@
 use POSIX qw/strftime/;
 use File::Slurp;
 use Time::HiRes;
-use Data::Dump qw/dump/;
+eval "use Data::Dump qw/dump/;";
 
 my $dt = 3;
 my $acpi_every = 10;
@@ -56,7 +56,7 @@
 
 find_proc_acpi('battery', sub {
 	my $bat = shift;
-	return unless $bat =~ /BAT/;
+	return unless $bat =~ /\w+/;
 
 	warn "# testing battery $bat\n" if ( $debug );
 
@@ -74,7 +74,7 @@
 	my @units = qw/b k M G/;
 	my $o = 0;
 
-	while ( ( $v / 1024 ) >= 1 ) {
+	while ( ( $v / 10000 ) >= 1 ) {
 		$o++;
 		$v /= 1024;
 	}