- added application property, although I don't think it gets set in

  the C code yet.

src/perl/X11-XRemote-0.01/X11/XRemote/XRemote.pm

@@ -49,7 +49,8 @@ sub new ($){
         $self->_handle($xrh);
         my $id = $self->{'_id'} if $self->{'_id'};
         if($self->{'_server'} && $id){
-            $xrh->initialiseServer("perl", oct($id));
+            my $app = $self->application("perl");
+            $xrh->initialiseServer($app, oct($id));
             $xrh->setRequestName($self->{'_request_name'}) 
                 if $self->{'_request_name'};
             $xrh->setResponseName($self->{'_response_name'})
@@ -145,6 +146,11 @@ sub request_string{
     }
     return $req;
 }
+sub application{
+    my ($self, $app) = @_;
+    $self->{'_application'} ||= $app if $app;
+    return $self->{'_application'};
+}
 
 {
     # BLOCK should only be available here!!!