--- deliantra/server/lib/cf.pm	2007/07/20 16:11:10	1.311
+++ deliantra/server/lib/cf.pm	2007/07/21 18:01:26	1.312
@@ -920,6 +920,17 @@
 
 #############################################################################
 # object support
+#
+
+sub _can_merge {
+   my ($ob1, $ob2) = @_;
+
+   local $Storable::canonical = 1;
+   my $fob1 = Storable::freeze $ob1;
+   my $fob2 = Storable::freeze $ob2;
+
+   $fob1 eq $fob2
+}
 
 sub reattach {
    # basically do the same as instantiate, without calling instantiate