summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-02-25 19:53:26 +0000
committerStew Benedict <stewb@mandriva.org>2004-02-25 19:53:26 +0000
commita674733cfd92901ed228ca6be5326d3e09224245 (patch)
tree6ca95cc5b1b626e6b8227cd80ed82dfc3ab8983b /perl-install
parent99c6c27f8b82fe7def05ff995c4d11099a64e3ed (diff)
downloaddrakx-a674733cfd92901ed228ca6be5326d3e09224245.tar
drakx-a674733cfd92901ed228ca6be5326d3e09224245.tar.gz
drakx-a674733cfd92901ed228ca6be5326d3e09224245.tar.bz2
drakx-a674733cfd92901ed228ca6be5326d3e09224245.tar.xz
drakx-a674733cfd92901ed228ca6be5326d3e09224245.zip
Use ATAPI:/dev/hdX for both 2.4/2.6 compatibility.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 23188e18d..99a34388d 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -418,9 +418,11 @@ sub get_cd_info() {
#- now just report the data if we called --cd-info from the command line
foreach my $key (keys %cd_devices) {
my $rec_dev = $key;
+ my $prefix;
$rec_dev =~ s/sr/sg/;
+ $prefix = "ATAPI:" if $rec_dev =~ /hd/;
my $can_record = $cd_devices{$key}{cdr} || $cd_devices{$key}{cdrw} || $cd_devices{$key}{dvdr};
- $cd_devices{$key}{rec_dev} = "/dev/" . $rec_dev if $can_record;
+ $cd_devices{$key}{rec_dev} = $prefix . "/dev/" . $rec_dev if $can_record;
if (!$interactive) {
print "\n{$key}->{rec_dev} = $cd_devices{$key}{rec_dev}\n";
print "{$key}->{speed} = $cd_devices{$key}{speed}\n";