jgsmith 01/07/28 22:12:31
Modified: perl/lib/AppSwitch/Base Client.pm Service.pm
Log:
Added `use strict' and made so they can compile with warnings turned on
Revision Changes Path
1.3 +5 -4 services/perl/lib/AppSwitch/Base/Client.pm
Index: Client.pm
===================================================================
RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Base/Client.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -b -u -r1.2 -r1.3
--- Client.pm 2001/07/27 23:26:28 1.2
+++ Client.pm 2001/07/29 05:12:31 1.3
@@ -4,8 +4,9 @@
use Carp;
use SOAP::Transport::UNIX;
+use strict;
-# $Id: Client.pm,v 1.2 2001/07/27 23:26:28 jgsmith Exp $
+# $Id: Client.pm,v 1.3 2001/07/29 05:12:31 jgsmith Exp $
=head1 NAME
@@ -132,7 +133,7 @@
$method = $self -> service() . ".$method";
# now we need to dispatch via the SOAP/XML-RPC client object... which is global...
- our $_transport;
+ our $_client;
if(!defined $_client) {
$_client = SOAP::Lite -> proxy("unix:$ENV{APPSWITCH_SOCKET}")
@@ -156,9 +157,9 @@
sub object_or_default {
- return @_ if ref $_[0] && $_[0] -> isa(AppSwitch::Base::Client);
+ return @_ if ref $_[0] && $_[0] -> isa('AppSwitch::Base::Client');
my $caller = caller;
- our $_clients;
+ our %_clients;
$_clients{$caller} = $caller -> new() unless defined $_clients{$caller};
return ($_clients{$caller}, @_);
}
1.3 +2 -1 services/perl/lib/AppSwitch/Base/Service.pm
Index: Service.pm
===================================================================
RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Base/Service.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -b -u -r1.2 -r1.3
--- Service.pm 2001/07/27 23:12:01 1.2
+++ Service.pm 2001/07/29 05:12:31 1.3
@@ -3,6 +3,7 @@
our $VERSION = 0.01;
use base q(Attribute::Handlers);
+use strict;
=head1 NAME
@@ -166,7 +167,7 @@
my($method) = shift;
- my($code) = $self -> {dispatch} -> {$mthod};
+ my($code) = $self -> {dispatch} -> {$method};
$code = "do_$method" unless defined $code;
|
