# 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.4 2001/09/28 19:20:18 sljohnson Exp $
+# $Id: check_disk,v 1.5 2002/05/10 21:07:43 sljohnson Exp $
use Spong::SafeExec qw(safe_exec);
my $warn = $DFWARN{$name} || $DFWARN{$rawfs} || $DFWARN{"ALL"};
foreach $check ( @DFIGNORE ) {
- next DFPIPE if $rawfs =~ /$check/;
- next DFPIPE if $name =~ /$check/;
+ next DFPIPE if $rawfs =~ m{$check};
+ next DFPIPE if $name =~ m{$check};
}
if( $percent > $lpercent ) { $lpercent = $percent; $large = $name; }