From 6264b34a361060ff030dd2c661df0c7dcecb4bb9 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 7 Feb 2001 14:11:43 +0000
Subject: [PATCH] - use CORE::system

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@358 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 765f6a8..591d529 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -191,7 +191,7 @@ sub logLoop {
 	}
 
 	&closeLog();
-	system("/bin/mv '$param{'logfile'}' '$file{log}'");
+	CORE::system("/bin/mv '$param{'logfile'}' '$file{log}'");
 	&compress($file{log});
 	&openLog();
 	&status("cycling log file.");
@@ -494,7 +494,7 @@ sub leakCheck {
 	$delete++;
     }
 
-    &DEBUG("$delete nuh{} items deleted; now have ".
+    &status("leakC: $delete nuh{} items deleted; now have ".
 				scalar(keys %nuh) ) if ($delete);
 }
 
@@ -630,13 +630,13 @@ sub miscCheck {
 	}
 
 	&status("SHM: nuking shmid $shmid");
-	system("/usr/bin/ipcrm shm $shmid >/dev/null");
+	CORE::system("/usr/bin/ipcrm shm $shmid >/dev/null");
     }
 
     # debian check.
     opendir(DEBIAN, "$bot_base_dir/debian");
     foreach ( grep /gz$/, readdir(DEBIAN) ) {
-	my $exit = system("gzip -t $bot_base_dir/debian/$_");
+	my $exit = CORE::system("gzip -t $bot_base_dir/debian/$_");
 	next unless ($exit);
 
 	&status("debian: unlinking file => $_");
@@ -659,7 +659,7 @@ sub miscCheck {
 
 	### TODO: do internal copying.
 	&status("Backup: $f to $f~");
-	system("/bin/cp $f $f~");
+	CORE::system("/bin/cp $f $f~");
     }
 
     ### check modules if they've been modified. might be evil.
-- 
2.39.5