Browse files

Fixed for OS X Mavericks

  • Loading branch information...
1 parent e467bbd commit 4976c698dc4a4ffe7c3246248e353f0416c8e4ef @creaktive committed Oct 29, 2013
Showing with 4 additions and 1 deletion.
  1. +2 −0 rainbarf
  2. +2 −1 t/01-tmux.t
View
2 rainbarf
@@ -302,6 +302,8 @@ sub memory {
my %m;
my %n = (K => 1/2**10, M => 1, G => 2**10);
if (exists $top{physmem}) {
+ $top{physmem} =~ s/[\(\),]+/,/gx
+ if $top{physmem} =~ s/\bunused\b/free/x;
%m =
map { lc $_->[2] => $_->[0] * $n{$_->[1]} }
map { [(/(\d+)([KMG])\s+(\w)/x)] }
View
3 t/01-tmux.t
@@ -1,5 +1,6 @@
#!perl
use strict;
+use open IO => ':locale';
use warnings qw(all);
use File::Temp;
@@ -52,7 +53,7 @@ for my $i (1 .. $n) {
(?:
$color_set
$chart
- ) {2,6}
+ ) {2,}
$color_reset
$
}msx,

0 comments on commit 4976c69

Please sign in to comment.