Some debugging to figure out why image import is sometimes failing,

cause dumpdescriptor at the other cluster is returning a bogus XML
file.

db/Image.pm.in

@@ -316,6 +316,7 @@ AUTOLOAD {
 	    return $self->{'HASH'}->{$name};
 	}
     }
+    print STDERR Dumper($self);
     carp("No such slot '$name' field in class $type");
     return undef;
 }

utils/image_import.in

@@ -884,9 +884,10 @@ sub FetchMetadata($)
 				VarAttr => 'name',
 				ContentKey => '-content',
 				SuppressEmpty => undef); };
-    fatal($@)
-	if ($@);
-
+    if ($@) {
+	print STDERR $xml . "\n";
+	fatal($@);
+    }
     if ($debug) {
 	print STDERR Dumper($xmlparse);
     }