Parent Directory | Revision Log | Patch
revision 19 by dpavlin, Fri Apr 17 10:03:00 2009 UTC | revision 20 by dpavlin, Fri Apr 17 10:04:02 2009 UTC | |
---|---|---|
# | Line 128 while(1) { | Line 128 while(1) { |
128 | my ( $program, $pid ); | my ( $program, $pid ); |
129 | ||
130 | if ( $buf =~ s/^\s*([^:]+)\s*:\s*// ) { | if ( $buf =~ s/^\s*([^:]+)\s*:\s*// ) { |
131 | $program = $1; | $program = $1; |
132 | $pid = $1 if $program =~ s/\[(\d+)\]$//; | if ( $program =~ s/\[(\d+)\]$// ) { |
133 | $pid = $1; | |
134 | } elsif ( $buf =~ s/^(\d+):\s*// ) { | |
135 | $pid = $1; | |
136 | } | |
137 | } | } |
138 | ||
139 | $values[1] = $buf; | $values[1] = $buf; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |