/[Frey]/trunk/lib/Frey/Shell/sar.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Shell/sar.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 876 by dpavlin, Wed Dec 17 18:38:49 2008 UTC revision 877 by dpavlin, Thu Dec 18 13:03:42 2008 UTC
# Line 59  sub as_sponge { Line 59  sub as_sponge {
59                                  warn "# skip too short line: '$_'";                                  warn "# skip too short line: '$_'";
60                                  next;                                  next;
61                          }                          }
62    
63                            # nothing works well with kernel resource format value/sz
64                            s{(\d+)/\d+}{$1}sg if $cmd =~ m{-v};
65    
66                          my $start = 0;                          my $start = 0;
67                          foreach my $len ( @pos ) {                          foreach my $col ( 0 .. $#pos ) {
68                                    my $len = $pos[$col];
69                                  my $v = substr($_, $start, $len);                                  my $v = substr($_, $start, $len);
70                                  $v =~ s/^\s+//g;                                  $v =~ s/^\s+//g;
71                                  push @l, $v;                                  push @l, $v;
Legend:
Removed from v.876  
changed lines
  Added in v.877
  ViewVC Help
Powered by ViewVC 1.1.26