~rgrjr/rgrjr-scripts

630123079f44fda36c8c085e27af852b9c1281cc — Bob Rogers 3 years ago 5506c4b
* cd-dump.pl:
   + Oops; we didn't change all $cd_max_size to $media_max_size.
1 files changed, 2 insertions(+), 2 deletions(-)

M cd-dump.pl
M cd-dump.pl => cd-dump.pl +2 -2
@@ 274,10 274,10 @@ die("$0:  Couldn't get disk size from ",
# ensure that the data will fit.
my $space_needed_estimate = 2*$disk_size;
warn("$warn:  Estimate ${disk_used_estimate}K used, ",
     "${space_needed_estimate}K needed, with ${cd_max_size}K max.\n")
     "${space_needed_estimate}K needed, with ${media_max_size}K max.\n")
    if $verbose_p;
die("$warn:  Not enough disk left:  ${disk_used_estimate}K used ",
    "+ ${space_needed_estimate}K needed > ${cd_max_size}K max.\nDied")
    "+ ${space_needed_estimate}K needed > ${media_max_size}K max.\nDied")
    if $disk_used_estimate+$space_needed_estimate > $media_max_size;

### all clear, write the disk.