Changeset 214

Timestamp:

12/29/10 08:34:13 (13 years ago)

Author:

nanardon

Message:

• fix code for old perl version

Location:

client/trunk/lib/Sophie

Files:

• Client.pm (modified) (2 diffs)
• Client/IRC.pm (modified) (1 diff)
• Client/Term.pm (modified) (1 diff)

client/trunk/lib/Sophie/Client.pm

@@ -1 +1 @@
 package Sophie::Client;
 
-use 5.012002;
+use 5.010000;
 use strict;
 use warnings;
@@ -16 +16 @@
         $options{server} || 'http://sophie2.aero.jussieu.fr/rpc'
     );
-    $self->timeout(20);
+    $self->timeout(20) if ($self->can('timeout'));
     $self->{options} = { %options };
 

client/trunk/lib/Sophie/Client/IRC.pm

@@ -1 +1 @@
 package Sophie::Client::IRC;
 
-use 5.012002;
+use 5.010000;
 use strict;
 use warnings;

client/trunk/lib/Sophie/Client/Term.pm

@@ -1 +1 @@
 package Sophie::Client::Term;
 
-use 5.012002;
+use 5.010000;
 use strict;
 use warnings;