Add ArrayRef check

Author: zmughal

lib/AI/TensorFlow/Libtensorflow/Lib/FFIType/Variant/PackableMaybeArrayRef.pm

@@ -20,6 +20,7 @@ sub make_variant {
 	my $perl_to_native = install perl_to_native => sub {
 		my ($value, $i) = @_;
 		if( defined $value ) {
+			die "Value must be an ArrayRef" unless ref $value eq 'ARRAY';
 			my $data = pack  $arguments{pack_type} . '*', @$value;
 			my $n    = scalar @$value;
 			my ($pointer, $size) = scalar_to_buffer($data);