Add DESTROY method, newer version of perl was unhappy without it.

Also a mysql 5.7 fixup.

apt/APT_Profile.pm.in

@@ -1887,7 +1887,7 @@ sub FindProfilesUsing($$)
     }
 
     my $query_result =
-	DBQueryWarn("select distinct profileid,version ".
+	DBQueryWarn("select distinct profileid,version,name ".
 		    "   from apt_profile_images ".
 		    "where image=$safe_urn ".
 		    "order by name,version");
@@ -1947,5 +1947,11 @@ AUTOLOAD {
     return undef;
 }
 
+sub DESTROY {
+    my $self = shift;
+
+    $self->{'DBROW'} = undef;
+}
+
 # _Always_ make sure that this 1 is at the end of the file...
 1;