Commit0fc32c0

committed

Fix sample INSTR function to return 0 if third arg is 0.

Albe Laurenz, per a report by Greg Smith that our sample functiondoesn't quite match Oracle's behavior.

1 parent72dd629 commit0fc32c0Copy full SHA for 0fc32c0

File tree

-2

lines changed

-2

lines changed

Lines changed: 6 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -5115,7 +5115,7 @@ BEGIN`
`5115`	`5115`	`ELSE`
`5116`	`5116`	`RETURN pos + beg_index - 1;`
`5117`	`5117`	`END IF;`
`5118`		`-ELSE`
	`5118`	`+ELSIF beg_index < 0 THEN`
`5119`	`5119`	`ss_length := char_length(string_to_search);`
`5120`	`5120`	`length := char_length(string);`
`5121`	`5121`	`beg := length + beg_index - ss_length + 2;`
`@@ -5131,6 +5131,8 @@ BEGIN`
`5131`	`5131`	`beg := beg - 1;`
`5132`	`5132`	`END LOOP;`
`5133`	`5133`
	`5134`	`+ RETURN 0;`
	`5135`	`+ ELSE`
`5134`	`5136`	`RETURN 0;`
`5135`	`5137`	`END IF;`
`5136`	`5138`	`END;`
`@@ -5170,7 +5172,7 @@ BEGIN`
`5170`	`5172`	`ELSE`
`5171`	`5173`	`RETURN beg;`
`5172`	`5174`	`END IF;`
`5173`		`-ELSE`
	`5175`	`+ELSIF beg_index < 0 THEN`
`5174`	`5176`	`ss_length := char_length(string_to_search);`
`5175`	`5177`	`length := char_length(string);`
`5176`	`5178`	`beg := length + beg_index - ss_length + 2;`
`@@ -5190,6 +5192,8 @@ BEGIN`
`5190`	`5192`	`beg := beg - 1;`
`5191`	`5193`	`END LOOP;`
`5192`	`5194`
	`5195`	`+ RETURN 0;`
	`5196`	`+ ELSE`
`5193`	`5197`	`RETURN 0;`
`5194`	`5198`	`END IF;`
`5195`	`5199`	`END;`

Comments

(0)