--- trunk/lib/Frey/Shell/sar.pm	2008/12/17 18:38:49	874
+++ trunk/lib/Frey/Shell/sar.pm	2008/12/18 13:03:42	877
@@ -59,8 +59,13 @@
 				warn "# skip too short line: '$_'";
 				next;
 			}
+
+			# nothing works well with kernel resource format value/sz
+			s{(\d+)/\d+}{$1}sg if $cmd =~ m{-v};
+
 			my $start = 0;
-			foreach my $len ( @pos ) {
+			foreach my $col ( 0 .. $#pos ) {
+				my $len = $pos[$col];
 				my $v = substr($_, $start, $len);
 				$v =~ s/^\s+//g;
 				push @l, $v;