summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-06-08 19:18:18 +0000
committerStew Benedict <stewb@mandriva.org>2004-06-08 19:18:18 +0000
commit1a709e0d8f13944775f749ddbed9b7c1eb4a2b49 (patch)
tree9173d7712399fd739ca6fecb3280b67feabfbdc1 /perl-install/standalone
parenta4fd0fd5452765297bd052a4ecf680a0e8a3362f (diff)
downloaddrakx-backup-do-not-use-1a709e0d8f13944775f749ddbed9b7c1eb4a2b49.tar
drakx-backup-do-not-use-1a709e0d8f13944775f749ddbed9b7c1eb4a2b49.tar.gz
drakx-backup-do-not-use-1a709e0d8f13944775f749ddbed9b7c1eb4a2b49.tar.bz2
drakx-backup-do-not-use-1a709e0d8f13944775f749ddbed9b7c1eb4a2b49.tar.xz
drakx-backup-do-not-use-1a709e0d8f13944775f749ddbed9b7c1eb4a2b49.zip
Bugzilla #9877 - deal with kernel ring buffer that is flooded with msgs
for tape device detection.
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbackup6
1 files changed, 3 insertions, 3 deletions
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);