Strange behaviour of PL/Perl - Mailing list pgsql-general

Hello All!

I just included PL/Perl language in my database.
Created function:

CREATE FUNCTION and_with_mask(int2, int2) RETURNS int2 AS
'
return $_[0] &
$_[1]
' LANGUAGE 'plperl';


select and_with_mask(4,1);
and_with_mask
---------------
             0

select and_with_mask(8,1);
 and_with_mask
---------------
             0

select and_with_mask(16,1);
 and_with_mask
---------------
             1

select and_with_mask(32,1);
 and_with_mask
---------------
             1

And just in Perl:

#!/usr/bin/perl
    $val = 32 &
1;
    print("val = $val\n");

val = 0

Where am I mistaken or something is in PL/Perl?

--
with respection Andrey Feofilactovich.
e-mail: feo@ttn.ru, feo@feo.org.ru
ICQ: 28073807