A
A. Farber
Hi,
I'm trying to verify that a file (uploaded via HTTP)
has 24 bytes with the value 0xff at some offset:
die "sysseek to $place failed: $!"
unless sysseek $fh, $place, SEEK_SET;
die "sysread failed: $!"
unless 24 == sysread $fh, $check, 24;
unless (0xffffffffffffffffffffffff == $check) {
printf "Checksum storage area at 0x%X is not empty", $place;
exit;
}
However the condition above is never true on
RedHat 9 with Perl 5.6.1. Any suggestions please?
Regards
Alex
I'm trying to verify that a file (uploaded via HTTP)
has 24 bytes with the value 0xff at some offset:
die "sysseek to $place failed: $!"
unless sysseek $fh, $place, SEEK_SET;
die "sysread failed: $!"
unless 24 == sysread $fh, $check, 24;
unless (0xffffffffffffffffffffffff == $check) {
printf "Checksum storage area at 0x%X is not empty", $place;
exit;
}
However the condition above is never true on
RedHat 9 with Perl 5.6.1. Any suggestions please?
Regards
Alex