- Minor fix in deparsing the __BLOCK__ keyword.

Example:

	say { |n|
		# will call the block as a block (not as a function)
		n < 2 ? n : (__BLOCK__(n-1) + __BLOCK__(n-2))
	}(12)

lib/Sidef/Deparse/Perl.pm

@@ -658,7 +658,7 @@ HEADER
         }
         elsif ($ref eq 'Sidef::Types::Block::BlockInit') {
             if ($addr{$refaddr}++) {
-                $code = 'Sidef::Types::Block::Block->new(code => __SUB__';
+                $code = q{Sidef::Types::Block::Block->new(code => __SUB__, type => 'block'};
 
                 if (exists($obj->{init_vars}) and @{$obj->{init_vars}{vars}}) {
                     $code .= ', ' . $self->_dump_var_attr(@{$obj->{init_vars}{vars}});