From 1a709e0d8f13944775f749ddbed9b7c1eb4a2b49 Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Tue, 8 Jun 2004 19:18:18 +0000
Subject: Bugzilla #9877 - deal with kernel ring buffer that is flooded with
 msgs for tape device detection.

---
 perl-install/standalone/drakbackup | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 483e68284..acadd8be7 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -223,7 +223,7 @@ sub get_tape_info() {
 	my @line_data;
 	my $info = "$ENV{HOME}/tmp/dmesg";
 	@tape_devices = ();
-	system("dmesg | grep 'st[0-9] at' > $info");
+	system("dmesg -s 100000 | grep 'st[0-9] at' > $info");
 
 	my @info = cat_($info);
 	foreach (@info) {
@@ -544,7 +544,7 @@ sub ftp_client() {
 		$ftp = 0;
 	}
 	return 1 if !$ftp;
-	$ftp->binary();
+	$ftp->binary;
 	$ftp->cwd($conf{HOST_PATH}); 
     foreach (@file_list_to_send_by_ftp) {
 		$interactive and $pbar->set_fraction(0);
@@ -3608,7 +3608,7 @@ sub restore_ftp {
     else {  $ftp = Net::FTP->new($hostname, Debug => 0) or return 1 }
     $ftp->login($username, $userpass);
     $ftp->cwd($hostpath);
-    $ftp->binary();
+    $ftp->binary;
 
 	my $wild_card = catalog_to_wildcard($cat_entry);
 		
-- 
cgit v1.2.1