CGI::Session не удаляет файл сессии с диска.

From

Andrei Protasovitski (2:450/186)

To

All

Date

2005-08-05T13:34:38Z

Area

RU.PERL

From: Andrei Protasovitski <andrei@siliconmaterials.com>
Reply-To: andrei@siliconmaterials.com

Доброго здоровья!

[-=cut=-]
my $session;
my $sid = $cgi->cookie("CGISESSID") || $cgi->param("CGISESSID") || undef;

if ($sid) {
     $session = CGI::Session->new("driver:$P{sessiondriver}", $sid, 
{Directory => $P{sesdir}});
     if ($GetP{session} eq 'kill') {
         $session->delete();
         $cookie[0] = $cgi->cookie(-name => 'CGISESSID',
                                   -value => $sid,
                                   -expires => '-1d');
         print $cgi->header(-cookie => \@cookie,
                            -status => '302 Moved',
                            -Location => "http://$P{domain}/goodbye.html");
         exit;
     }
...
}
[-=cut=-]

Такой код нормально работает, т.е. удаляет файл с диска. Но если вместо 
*my* объявить *our $session*, файл с диска не удаляется.

Это баг или фича? Как вылечить?

-- 
Andrei Protasovitski              mailto:andrei()siliconmaterials.com
http://www.siliconmaterials.com/  ICQ: 75725244
Pinsk, Belarus
--- Mozilla Thunderbird 1.0.6 (Windows/20050716)
 * Origin: -= http://fido.ext.by (sponsored by http://extmedia.com) (2:450/186)
SEEN-BY: 50/203 400/462 814 450/186 451/30 4635/4 5000/5000 5001/5001 5010/53
SEEN-BY: 5012/8 46 5015/10 5020/154 175 400 545 549 715 758 830 1523 1604 2020
SEEN-BY: 5020/2142 2238 2590 4441 5021/3 29 5022/128 5025/3 750 5027/16
SEEN-BY: 5030/49 115 436 556 966 1063 1339 1900 5031/47 70 5033/21 5040/47
SEEN-BY: 5042/13 5045/7 5053/16 5054/1 8 9 35 36 37 45 66 67 81 85 5059/9
SEEN-BY: 5060/3 5061/120 5062/1 10 5064/39 5066/18 5069/7 5070/1222 5077/70 80
SEEN-BY: 5080/80 1003 5082/6 5083/21 5085/13 5090/108 113 5095/20 5096/18
SEEN-BY: 6000/12

PATH: 450/186 5020/4441 545 5054/1 37