postgesql-7.4.5-1 cygwin , perl function call crashes server process

--- Reini Urban <rurban(at)x-ray(dot)at> wrote:

> however I finished my postgesql-7.4.5-1 cygwin
> release.
>
http://xarch.tu-graz.ac.at/home/rurban/software/cygwin/postgresql/postgresql-7.4.5-1/
>
> I just don't have a setup.hint, so you have to
> install it manually.
> --
> Reini Urban
> http://xarch.tu-graz.ac.at/home/rurban/
>
I manually installed (tar) new postgesql-7.4.5-1
cygwin release.
Thanks Reini!
Prior to that I uninstalled 7.4.3-1 and re-installed
perl 5.8.5-1 via cygwin install

createlang plperl worked fine.
I created the employee table and empcomp perl function
as given in the docs under pl/perl section.

When I try to run the query "Select
name,empcomp(employee) from emploee"
database child server process crashes with exit code
128 and database reinitializes.

Here's the debug log for postmaster (its rather long
but I thought a discerning eye might see something
there)-

DEBUG: found "/bin/postgres" using argv[0]
DEBUG: invoking IpcMemoryCreate(size=9469952)
WARNING: dup(0) failed after 3196 successes: Bad file
descriptor
DEBUG: max_safe_fds = 986, usable_fds = 3196,
already_open = 4
DEBUG: found "/bin/postmaster" using argv[0]
LOG: database system was interrupted at 2004-08-26
09:07:17 PDT
.....
LOG: database system is ready
DEBUG: forked new backend, pid=2192 socket=7
DEBUG: /bin/postmaster child[2192]: starting with (
DEBUG: postgres
DEBUG: -d5
DEBUG: -v196608
DEBUG: -p
DEBUG: version4
DEBUG: )
DEBUG: InitPostgres
DEBUG: StartTransactionCommand
LOG: statement: SELECT name, empcomp(employee) FROM
employee;
DEBUG: parse tree:
DETAIL: {QUERY :commandType 1 :querySource 0
:canSetTag true :utilityStmt <>
:resultRelation 0 :into <> :hasAggs false
:hasSubLinks false :rtable ({RTE
:alias <> :eref {ALIAS :aliasname employee
:colnames ("name" "basesalary"
"bonus")} :rtekind 0 :relid 70814 :inh true
:inFromCl true :checkForRead true
:checkForWrite false :checkAsUser 0})
:jointree {FROMEXPR :fromlist
({RANGETBLREF :rtindex 1}) :quals <>}
:rowMarks () :targetList ({TARGETENTRY
:resdom {RESDOM :resno 1 :restype 25
:restypmod -1 :resname name
:ressortgroupref 0 :resorigtbl 70814
:resorigcol 1 :resjunk false} :expr {VAR
:varno 1 :varattno 1 :vartype 25 :vartypmod -1
:varlevelsup 0 :varnoold 1
:varoattno 1}} {TARGETENTRY :resdom {RESDOM
:resno 2 :restype 23 :restyp mod -1
:resname empcomp :ressortgroupref 0
:resorigtbl 0 :resorigcol 0 :resjunk
false} :expr {FUNCEXPR :funcid 70819
:funcresulttype 23 :funcretset false
:funcformat 0 :args ({VAR :varno 1 :varattno 0
:vartype 70815 :vartypmod 4
:varlevelsup 0 :varnoold 1 :varoattno 0})}})
:groupClause <> :havingQual <>
:distinctClause <> :sortClause <> :limitOffset
<> :limitCount <>
:setOperations <> :resultRelations ()}

DEBUG: rewritten parse tree:
DETAIL: ({QUERY :commandType 1 :querySource 0
:canSetTag true :utilityStmt <>
:resultRelation 0 :into <> :hasAggs false
:hasSubLinks false :rtable ({RTE
:alias <> :eref {ALIAS :aliasname employee
:colnames ("name" "basesalary"
"bonus")} :rtekind 0 :relid 70814 :inh true
:inFromCl true :checkForRead true
:checkForWrite false :checkAsUser 0})
:jointree {FROMEXPR :fromlist
({RANGETBLREF :rtindex 1}) :quals <>}
:rowMarks () :targetList ({TARGETENTRY
:resdom {RESDOM :resno 1 :restype 25
:restypmod -1 :resname name
:ressortgroupref 0 :resorigtbl 70814
:resorigcol 1 :resjunk false} :expr {VAR
:varno 1 :varattno 1 :vartype 25 :vartypmod -1
:varlevelsup 0 :varnoold 1
:varoattno 1}} {TARGETENTRY :resdom {RESDOM
:resno 2 :restype 23 :restyp mod -1
:resname empcomp :ressortgroupref 0
:resorigtbl 0 :resorigcol 0 :resjunk
false} :expr {FUNCEXPR :funcid 70819
:funcresulttype 23 :funcretset false
:funcformat 0 :args ({VAR :varno 1 :varattno 0
:vartype 70815 :vartypmod 4
:varlevelsup 0 :varnoold 1 :varoattno 0})}})
:groupClause <> :havingQual <>
:distinctClause <> :sortClause <> :limitOffset
<> :limitCount <>
:setOperations <> :resultRelations ()})
DEBUG: plan:
DETAIL: {SEQSCAN :startup_cost 0.00 :total_cost 22.50
:plan_rows 1000 :plan_width 36
:targetlist ({TARGETENTRY :resdom {RESDOM
:resno 1 :restype 25 :restypmod -1
:resname name :ressortgroupref 0 :resorigtbl
70814 :resorigcol 1 :resjunk
false} :expr {VAR :varno 1 :varattno 1
:vartype 25 :vartypmod -1 :varlevelsup
0 :varnoold 1 :varoattno 1}} {TARGETENTRY
:resdom {RESDOM :resno 2 :restype 23
:restypmod -1 :resname empcomp
:ressortgroupref 0 :resorigtbl 0 :resorigcol 0
:resjunk false} :expr {FUNCEXPR :funcid 70819
:funcresulttype 23 :funcretset
false :funcformat 0 :args ({VAR :varno 1
:varattno 0 :vartype 70815 :vartypmod
4 :varlevelsup 0 :varnoold 1 :varoattno 0})}})
:qual <> :lefttree <>
:righttree <> :initPlan <> :extParam ()
:allParam () :nParamExec 0 :scanrelid
1}

DEBUG: PortalRun
DEBUG: forked new backend, pid=2012 socket=7
DEBUG: reaping dead processes
DEBUG: child process (PID 2192) exited with exit code
128
LOG: server process (PID 2192) exited with exit code
128
LOG: terminating any other active server processes
DEBUG: sending SIGQUIT to process 2012
DEBUG: /bin/postmaster child[2012]: starting with (
DEBUG: postgres
DEBUG: -d5
DEBUG: -v196608
DEBUG: -p
DEBUG: version4
DEBUG: )
WARNING: terminating connection because of crash of
another server process
DETAIL: The postmaster has commanded this server
process to roll back the curre
nt transaction and exit, because another server
process exited abnormally and po
ssibly corrupted shared memory.
HINT: In a moment you should be able to reconnect to
the database and repeat yo
ur command.
DEBUG: reaping dead processes
DEBUG: child process (PID 2012) exited with exit code
1
LOG: all server processes terminated; reinitializing
DEBUG: shmem_exit(0)
DEBUG: invoking IpcMemoryCreate(size=9469952)
LOG: database system was interrupted at 2004-08-26
09:10:07 PDT
LOG: checkpoint record is at 0/16C40C8
LOG: redo record is at 0/16C40C8; undo record is at
0/0; shutdown TRUE
LOG: next transaction ID: 645; next OID: 74486
LOG: database system was not properly shut down;
automatic recovery in progress

LOG: record with zero length at 0/16C4108
LOG: redo is not required
LOG: database system is ready
DEBUG: proc_exit(0)
DEBUG: shmem_exit(0)
DEBUG: exit(0)
DEBUG: reaping dead processes

__________________________________
Do you Yahoo!?
New and Improved Yahoo! Mail - 100MB free storage!
http://promotions.yahoo.com/new_mail