[Asterisk-cvs] asterisk-addons/res_perl res_perl.c,1.1,1.2

[anthm at lists.digium.com]

Update of /usr/cvsroot/asterisk-addons/res_perl
In directory mongoose.digium.com:/tmp/cvs-serv2905

Modified Files:
	res_perl.c 
Log Message:
minor update

Index: res_perl.c
===================================================================
RCS file: /usr/cvsroot/asterisk-addons/res_perl/res_perl.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- res_perl.c	23 Sep 2004 17:49:42 -0000	1.1
+++ res_perl.c	24 Sep 2004 22:08:05 -0000	1.2
@@ -345,8 +345,9 @@
 		return -1;
     }
 
-	replace_delim(arg,':',delim);
+
     ast_log(LOG_WARNING, "Calling Perl Sub [%s] [%s]\n",func,buf);
+	replace_delim(buf,':',delim);
 
 	array=eval_some_perl(my_perl,func,buf);