I found a little glitch running this on the openacs.org database. It likely will never show up on any other data.
On line 39
the code reads
if ($_ =~ /CREATE FUNCTION "(.*)"/) {
and it will capture the functions inside of data such as forum postings.
I changed it to
if ($_ =~ /^CREATE FUNCTION "(.*)"/) {
to only find CREATE FUNCTION at the beginning of a line and it seems to work.