diff -Nurb event-rpc-1.00/Changes event-rpc-1.01/Changes
--- event-rpc-1.00/Changes	2008-06-21 18:14:49.000000000 +0530
+++ event-rpc-1.01/Changes	2008-10-26 15:58:28.000000000 +0530
@@ -1,7 +1,15 @@
-$Id: Changes,v 1.15 2008/06/21 12:44:49 joern Exp $
+$Id: Changes,v 1.17 2008/10/26 10:28:28 joern Exp $
 
 Revision history and release notes for Event::RPC:
 
+1.01 Sat Oct 25, 2008, joern
+    Bugfixes:
+    - Even objects returned by methods not declared as
+      an "object returner" where turned into Event::RPC
+      object handles instead of copying the complete
+      data structure to the client. Thanks for the report
+      to Alex <alex AT lokku.com>.
+
 1.00 Sat Jun 21, 2008, joern
     Notes:
     - Time for version 1.00 ;)
diff -Nurb event-rpc-1.00/debian/changelog event-rpc-1.01/debian/changelog
--- event-rpc-1.00/debian/changelog	2009-07-18 18:33:51.000000000 +0530
+++ event-rpc-1.01/debian/changelog	2009-07-18 19:03:39.000000000 +0530
@@ -1,3 +1,10 @@
+event-rpc (1.01-0ubuntu1) karmic; urgency=low
+
+  * New upstream bugfix release LP: #401080
+  * Bump up standards-version to 3.8.2. No changes.
+
+ -- Bhavani Shankar <right2bhavi@gmail.com>  Sat, 18 Jul 2009 19:02:38 +0530
+
 event-rpc (1.00-0ubuntu1) intrepid; urgency=low
 
   * New upstream release (LP: #255853)
diff -Nurb event-rpc-1.00/debian/control~ event-rpc-1.01/debian/control~
--- event-rpc-1.00/debian/control~	2009-07-18 18:33:51.000000000 +0530
+++ event-rpc-1.01/debian/control~	1970-01-01 05:30:00.000000000 +0530
@@ -1,15 +0,0 @@
-Source: event-rpc
-Section: perl
-Priority: optional
-Maintainer: Ubuntu MOTU Developers <ubuntu-motu@lists.ubuntu.com>
-XSBC-Original-Maintainer: Christian Marillat <marillat@debian.org>
-Bugs: mailto:marillat@debian.org
-Standards-Version: 3.8.0
-Homepage: http://www.exit1.org/Event-RPC/
-Build-Depends: debhelper (>= 4.0.0)
-
-Package: event-rpc-perl
-Architecture: all
-Depends: libevent-rpc-perl
-Description: dummy package to install libevent-rpc-perl
- Dummy package to install libevent-rpc-perl. this package can be removed.
diff -Nurb event-rpc-1.00/lib/Event/RPC/Connection.pm event-rpc-1.01/lib/Event/RPC/Connection.pm
--- event-rpc-1.00/lib/Event/RPC/Connection.pm	2006-06-10 19:43:37.000000000 +0530
+++ event-rpc-1.01/lib/Event/RPC/Connection.pm	2008-10-25 14:01:48.000000000 +0530
@@ -386,6 +386,8 @@
 
 	}
 	
+        my $return_type = $self->get_classes->{$class}->{$method};
+        
 	# (re)load the class if not done yet
 	$self->load_class($class) if $self->get_server->get_load_modules;
 
@@ -411,6 +413,7 @@
 	$self->log (4, "Called method '$method' of object ".
 		       "with oid=$oid");
 
+        if ( $return_type eq '_object' ) {
 	# check if objects are returned by this method
 	# and register them in our internal object table
 	# (if not already done yet)
@@ -456,6 +459,7 @@
 			}
 		}
 	}
+        }
 
 	# return rc
 	return {
diff -Nurb event-rpc-1.00/lib/Event/RPC.pm event-rpc-1.01/lib/Event/RPC.pm
--- event-rpc-1.00/lib/Event/RPC.pm	2008-06-21 18:12:18.000000000 +0530
+++ event-rpc-1.01/lib/Event/RPC.pm	2008-10-25 14:05:37.000000000 +0530
@@ -1,6 +1,6 @@
 package Event::RPC;
 
-$VERSION  = "1.00";
+$VERSION  = "1.01";
 $PROTOCOL = "1.00";
 
 sub crypt {
diff -Nurb event-rpc-1.00/META.yml event-rpc-1.01/META.yml
--- event-rpc-1.00/META.yml	2008-06-21 18:18:02.000000000 +0530
+++ event-rpc-1.01/META.yml	2008-10-26 15:58:32.000000000 +0530
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Event-RPC
-version:             1.00
+version:             1.01
 abstract:            ~
 license:             ~
 author:              ~
diff -Nurb event-rpc-1.00/t/06.object2.t event-rpc-1.01/t/06.object2.t
--- event-rpc-1.00/t/06.object2.t	2006-06-10 19:46:12.000000000 +0530
+++ event-rpc-1.01/t/06.object2.t	2008-10-26 15:51:12.000000000 +0530
@@ -11,7 +11,7 @@
 	plan skip_all => "Neither Event nor Glib installed";
 }
 
-plan tests => 9;
+plan tests => 10;
 
 my $PORT = 27811;
 
@@ -58,6 +58,10 @@
 # check data of object2
 ok($object2->get_data == $$, "object data is $$");
 
+# check if copying the complete object hash works
+my $ref = $object2->get_object_copy;
+ok($ref->{data} == $$, "object copy data is $$");
+
 # disconnect client
 ok ($client->disconnect, "client disconnected");
 
diff -Nurb event-rpc-1.00/t/Event_RPC_Test2.pm event-rpc-1.01/t/Event_RPC_Test2.pm
--- event-rpc-1.00/t/Event_RPC_Test2.pm	2006-05-18 01:49:47.000000000 +0530
+++ event-rpc-1.01/t/Event_RPC_Test2.pm	2008-10-25 13:44:52.000000000 +0530
@@ -14,5 +14,10 @@
     }, $class;
 }
 
+sub get_object_copy {
+    my $self = shift;
+    return $self;
+}
+
 1;
 
diff -Nurb event-rpc-1.00/t/Event_RPC_Test_Server.pm event-rpc-1.01/t/Event_RPC_Test_Server.pm
--- event-rpc-1.00/t/Event_RPC_Test_Server.pm	2006-06-10 19:53:55.000000000 +0530
+++ event-rpc-1.01/t/Event_RPC_Test_Server.pm	2008-10-25 14:01:41.000000000 +0530
@@ -121,6 +121,7 @@
         	  new         	   => '_constructor',
         	  set_data         => 1,
         	  get_data         => 1,
+                  get_object_copy  => 1,
         	},
       },
       connection_hook   => sub {