Defaulted seed in binhex_crc to 0 to match docs

This commit is contained in:
Stephen Nelson 2013-08-25 09:53:05 -07:00
parent 8b16c2fe14
commit fead905e96

View File

@ -275,6 +275,9 @@ Converted to Perl5 by Eryq.
sub binhex_crc {
my $len = length($_[0]);
my $crc = $_[1];
if (! defined $crc) {
$crc = 0;
}
my $i;
for ($i = 0; $i < $len; $i++) {
my $ocrc = $crc;