Пишем небольшой скриптик
----------------------
#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\\n\\n";
my @a = (1, 2);
my $n = \\@a;
#print join(\',\', @$n);
ggg($n);
sub ggg { print join(\',\', @{$_[0]}) }
----------------------
Под mod_cgi выводит на экран: 1,2 (все верно)
Под mod_perl выводит: 1,21 (тоесть к последнему элементу добавляется единица в конце!)
Может кто сталкивался с этим?
ps: Со всеми остальными типами данных все нормально. Проблема только с массивами. И только при выводе через функцию. Если раскомментировать 8-ю строку и закомментировать 9-ю то выводит правильно.