From 9aa5e3d08e65e664fc7991679f5b0a2b037049c1 Mon Sep 17 00:00:00 2001
From: sboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 11 Aug 2008 18:44:33 +0000
Subject: [PATCH] manual merge of miker's changes

git-svn-id: svn://svn.open-ils.org/OpenSRF/branches/sboyette@1409 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/Application.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/perl/lib/OpenSRF/Application.pm b/src/perl/lib/OpenSRF/Application.pm
index dbd86e1..0329a02 100644
--- a/src/perl/lib/OpenSRF/Application.pm
+++ b/src/perl/lib/OpenSRF/Application.pm
@@ -36,6 +36,12 @@ sub signature {
 	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 @@ sub handler {
 			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 normalize_whitespace {
 sub parse_string_signature {
 	my $string = shift;
 	return [] unless $string;
-	my @chunks = split(/\@/so, $string);
+	my @chunks = split(/\@/smo, $string);
 
 	my @params;
 	my $ret;
-- 
2.11.0