diff options
Diffstat (limited to 'perl-install')
| -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"; |