Defaulted seed in binhex_crc to 0 to match docs

2013-08-25 09:53:05 -07:00 · 2013-08-25 09:53:05 -07:00 · fead905e96
parent 8b16c2fe14
commit fead905e96
1 changed files with 3 additions and 0 deletions
--- a/lib/Convert/BinHex.pm
+++ b/lib/Convert/BinHex.pm
@ -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;