diff --git a/misc-scripts/db/dump_mysql.pl b/misc-scripts/db/dump_mysql.pl index bf0b8435c230b936693a2a1a9bdabda3728894bf..1b88952789e1e8e41992e6c3fa23b7a1f1798c92 100755 --- a/misc-scripts/db/dump_mysql.pl +++ b/misc-scripts/db/dump_mysql.pl @@ -361,10 +361,10 @@ sub checksum { my @files = sort { $a cmp $b } readdir($dh); closedir($dh) or die "Cannot close directory $dir"; - my $checksum = $self->file('CHECKSUMS.gz'); + my $checksum = $self->file('CHECKSUMS'); unlink $checksum if -f $checksum; - my $fh = IO::Compress::Gzip->new($checksum) or croak "Cannot create gzip stream to $checksum: $GzipError"; + open my $fh, '>', $checksum or croak "Cannot open filehandle to $checksum: $!"; foreach my $file (@files) { next if $file =~ /^\./; #hidden file or up/current dir next if $file =~ /^CHECKSUM/;