Re: _narrow() patch to CORBA::ORBit dropped?

On Tue, 2002-04-30 at 17:24, Alex Hornby wrote:
> Hi Owen,
> 
> It doesn't look like any of the _narrow() patches have made it into CVS.
> What needs to be done to get this in?
> 
> Regards,
> Alex.
> 

Might be handy if I include a copy.

This is a diff -u against CVS.

Alex.

Index: ORBit.xs
===================================================================
RCS file: /cvs/gnome/orbit-perl/ORBit.xs,v
retrieving revision 1.11
diff -u -u -r1.11 ORBit.xs
--- ORBit.xs	8 Feb 2001 05:43:33 -0000	1.11
+++ ORBit.xs	30 Apr 2002 17:15:08 -0000
@@ -359,6 +359,16 @@
     RETVAL = self->object_id;
     OUTPUT:
     RETVAL
+    
+void
+_narrow (self, repoid)
+    CORBA::Object self;
+    char * repoid;
+    CODE:
+    {
+        g_free(self->object_id);
+        self->object_id = g_strdup(repoid);
+    }
 
 void
 DESTROY (self)