pl/perl function life and variable scope - concurrency problem?

 Greetings,

 Thanks to a lot of help on this list, I've managed to get my pl/perl
function working. However, I have an unexpected result. Here's a simple
way to reproduce this problem:

CREATE or REPLACE FUNCTION perltest(integer)
returns integer as '
  $MyInt = $MyInt + 1;
  return $MyInt;
' language plperlu;


Executing it produces:

chris=# select perltest(1);
 perltest
----------
        1
(1 row)

chris=# select perltest(1);
 perltest
----------
        2
(1 row)

chris=# select perltest(1);
 perltest
----------
        3
(1 row)

chris=# select perltest(1);
 perltest
----------
        4
(1 row)

 Doing the right thing and initialzing variables before using them
solves this. Should I worry about this? Are concurrent callings of this
function protected from each other?

 Any info would be much appreciated.

Cheers,

Chris


--
Christopher Murtagh
Enterprise Systems Administrator
ISR / Web Communications Group
McGill University
Montreal, Quebec
Canada

Tel.: (514) 398-3122
Fax:  (514) 398-2017