From: Stephen L Johnson <sjohnson@monsters.org>
Date: Fri, 28 Sep 2001 19:20:18 +0000 (+0000)
Subject: replaced foreach() in main read loop. while (shift) was dumping bits on the floor
X-Git-Tag: spong-2_7_6a^0
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=169242ed00e210cd076940502c6e3c865c2fd49f;p=spong.git

replaced foreach() in main read loop. while (shift) was dumping bits on the floor
---

diff --git a/src/lib/Spong/Client/plugins/check_disk b/src/lib/Spong/Client/plugins/check_disk
index ecffec7..f5adebc 100755
--- a/src/lib/Spong/Client/plugins/check_disk
+++ b/src/lib/Spong/Client/plugins/check_disk
@@ -4,7 +4,7 @@ $CHECKFUNCS{'disk'} = \&check_disk;
 # This check check the amount of free diskspace for all of the mounted disk
 # partitions and the the amount of free swapspace.
 
-# $Id: check_disk,v 1.3 2001/09/16 18:08:39 sljohnson Exp $
+# $Id: check_disk,v 1.4 2001/09/28 19:20:18 sljohnson Exp $
 
 use Spong::SafeExec qw(safe_exec);
 
@@ -17,7 +17,7 @@ sub check_disk {
    $message = shift(@msg);  # Header
 
  DFPIPE:
-   while( shift(@msg) ) {
+   foreach ( @msg ) {
       if( m!^(\S+)\s.*?\s(\d+)\%\s+[^/]*(/.*)$! ) {
 	 my( $rawfs, $percent, $name ) = ( $1, $2, $3 );
 	 my $skip;