diff options
author | Stew Benedict <stewb@mandriva.org> | 2004-02-25 19:53:26 +0000 |
---|---|---|
committer | Stew Benedict <stewb@mandriva.org> | 2004-02-25 19:53:26 +0000 |
commit | a674733cfd92901ed228ca6be5326d3e09224245 (patch) | |
tree | 6ca95cc5b1b626e6b8227cd80ed82dfc3ab8983b /perl-install/standalone/drakbackup | |
parent | 99c6c27f8b82fe7def05ff995c4d11099a64e3ed (diff) | |
download | drakx-backup-do-not-use-a674733cfd92901ed228ca6be5326d3e09224245.tar drakx-backup-do-not-use-a674733cfd92901ed228ca6be5326d3e09224245.tar.gz drakx-backup-do-not-use-a674733cfd92901ed228ca6be5326d3e09224245.tar.bz2 drakx-backup-do-not-use-a674733cfd92901ed228ca6be5326d3e09224245.tar.xz drakx-backup-do-not-use-a674733cfd92901ed228ca6be5326d3e09224245.zip |
Use ATAPI:/dev/hdX for both 2.4/2.6 compatibility.
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-x | perl-install/standalone/drakbackup | 4 |
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"; |