Macintosh-Tools/convert-binhex
1
0
Fork 0
mirror of https://github.com/stephenenelson/convert-binhex.git synced 2024-11-28 12:50:52 +00:00
Code Issues Projects Releases Wiki Activity

Defaulted seed in binhex_crc to 0 to match docs

Browse Source
This commit is contained in:
Stephen Nelson 2013-08-25 09:53:05 -07:00
parent 8b16c2fe14
commit fead905e96
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/Convert/BinHex.pm
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;