Update Id.pm

Fixes #359 - suggested by Adam (http://www.eprints.org/tech.php/21050.html).
eprints · Nov 18, 2015 · fddb95e · fddb95e
1 parent 465a4f5
commit fddb95e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/perl_lib/EPrints/MetaField/Id.pm b/perl_lib/EPrints/MetaField/Id.pm
@@ -45,6 +45,8 @@ sub value_from_sql_row
 {
 	my( $self, $session, $row ) = @_;
 
+	return undef unless defined $row->[0];
+
 	if( $session->{database}->{dbh}->{Driver}->{Name} eq "mysql" )
 	{
 		utf8::decode( $row->[0] );