[Opensrf-commits] r1409 - branches/sboyette/src/perl/lib/OpenSRF

[svn at svn.open-ils.org]

Author: sboyette
Date: 2008-08-11 14:44:33 -0400 (Mon, 11 Aug 2008)
New Revision: 1409

Modified:
   branches/sboyette/src/perl/lib/OpenSRF/Application.pm
Log:
manual merge of miker's changes


Modified: branches/sboyette/src/perl/lib/OpenSRF/Application.pm
===================================================================
--- branches/sboyette/src/perl/lib/OpenSRF/Application.pm	2008-08-11 18:07:02 UTC (rev 1408)
+++ branches/sboyette/src/perl/lib/OpenSRF/Application.pm	2008-08-11 18:44:33 UTC (rev 1409)
@@ -36,6 +36,12 @@
 	return $self->{signature};
 }
 
+sub strict {
+    my $self = shift; 
+    return 0 unless ref($self);
+    return $self->{strict};
+}
+
 sub argc {
 	my $self = shift;
 	return 0 unless ref($self);
@@ -148,7 +154,7 @@
 			my $resp;
 			try {
 				# un-if(0) this block to enable param checking based on signature and argc
-				if (0) {
+				if ($coderef->strict) {
 					if (@args < $coderef->argc) {
 						die	"Not enough params passed to ".
 							$coderef->api_name." : requires ". $coderef->argc
@@ -327,7 +333,7 @@
 sub parse_string_signature {
 	my $string = shift;
 	return [] unless $string;
-	my @chunks = split(/\@/so, $string);
+	my @chunks = split(/\@/smo, $string);
 
 	my @params;
 	my $ret;