| Subject: | some code reuse and additional checks in remove() [CGI/Session/Driver/file.pm] |
IMHO this code in remove() can be reused
# diff /usr/lib/perl5/vendor_perl/5.8.8/CGI/Session/Driver/file.pm.orig
/usr/lib/perl5/vendor_perl/5.8.8/CGI/Session/Driver/file.pm
127,130c127
<
< my $directory = $self->{Directory};
< my $file = sprintf( $FileName, $sid );
< my $path = File::Spec->catfile($directory, $file);
---
Show quoted text
> my $path = $self->_file($sid);
also it use some checks in _file
after 4.34 it may usefull (secutity fix)
--
Sergiy Borodych