[Netpass-devel] NetPass/lib/NetPass Config.pm,1.31,1.32

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28167/lib/NetPass

Modified Files:
	Config.pm 
Log Message:
strike system feature

Index: Config.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/Config.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- Config.pm	1 May 2005 13:02:49 -0000	1.31
+++ Config.pm	1 May 2005 19:46:03 -0000	1.32
@@ -760,6 +760,8 @@
 sub policy {
 	my $self = shift;
 
+	_log("DEBUG", $self->debug."\n");
+
         my $parms = parse_parms({
 				 -parms => \@_,
 				 -legal => [qw(-key -network -val)],
@@ -769,7 +771,7 @@
 			   );
 
 	if (!defined($parms)) {
-		warn Carp::longmess("invalid parameters ".Class::ParmList->error);
+		_log("ERROR", Carp::longmess("invalid parameters ".Class::ParmList->error)."\n");
 		return undef;
 	}