[GENERAL] Strange behaviour of PL/Perl

[Andrey Y. Mosienko]

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: [EMAIL PROTECTED], [EMAIL PROTECTED]
ICQ: 28073807