services: services/perl/lib/AppSwitch/Echo Client.pm Service.pm

[<app...@li...>]

jgsmith     01/07/28 22:12:31

  Modified:    perl/lib/AppSwitch/Echo Client.pm Service.pm
  Log:
  Added `use strict' and made so they can compile with warnings turned on
  
  Revision  Changes    Path
  1.3       +5 -1      services/perl/lib/AppSwitch/Echo/Client.pm
  
  Index: Client.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Echo/Client.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -b -u -r1.2 -r1.3
  --- Client.pm	2001/07/27 23:21:35	1.2
  +++ Client.pm	2001/07/29 05:12:31	1.3
  @@ -1,10 +1,14 @@
   package AppSwitch::Echo::Client;
   
   use base q(AppSwitch::Base::Client);
  +use strict;
   
   our $VERSION = q(0.01);
   
  -our $RPC_SERVICE = "echo";
  +{
  +    no warnings;
  +    our $RPC_SERVICE = "echo";
  +}
   
   sub echo {
       my($self, $string) = object_or_default(@_);
  
  
  
  1.4       +1 -0      services/perl/lib/AppSwitch/Echo/Service.pm
  
  Index: Service.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Echo/Service.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -b -u -r1.3 -r1.4
  --- Service.pm	2001/07/27 22:59:45	1.3
  +++ Service.pm	2001/07/29 05:12:31	1.4
  @@ -1,6 +1,7 @@
   package AppSwitch::Echo::Service;
   
   use base q{AppSwitch::Base::Service};
  +use strict;
   
   our $VERSION = 0.01;