Browse Source

modules_k/perl: Fix resetting of flags in sv2int_str

According to the functions comments and its usages in the same file, the flags would only be or'red, not reset

This fixes setting an string named avp with an integer value:

OpenSER::AVP::add("string", 12345);
Alex Hermann 13 years ago
parent
commit
87d10dc1dc
1 changed files with 0 additions and 1 deletions
  1. 0 1
      modules_k/perl/openserxs.xs

+ 0 - 1
modules_k/perl/openserxs.xs

@@ -412,7 +412,6 @@ inline int sv2int_str(SV *val, int_str *is,
 	
 	
 	if (SvIOK(val)) { /* numerical name */
 	if (SvIOK(val)) { /* numerical name */
 		is->n = SvIV(val);
 		is->n = SvIV(val);
-		*flags = 0;
 		return 1;
 		return 1;
 	} else if (SvPOK(val)) {
 	} else if (SvPOK(val)) {
 		s = SvPV(val, len);
 		s = SvPV(val, len);