| Subject: | minor change to import. |
I would like to suggest a patch like the following, in case -ip_match is
not the last arg to the use statement:
--- Session-original.pm 2006-04-12 19:59:41.000000000 +0300
+++ Session-edited.pm 2006-09-29 20:05:53.000000000 +0300
@@ -17,11 +17,16 @@
sub STATUS_EXPIRED () { 8 } # denotes session that was expired.
sub import {
- my $class = shift;
- @_ or return;
+ my ($class, @args) = @_;
+
+ return unless @args;
- for(@_) {
- $CGI::Session::IP_MATCH = ( $_ eq '-ip_match' );
+ ARG:
+ foreach my $arg (@args) {
+ if ($arg eq '-ip_match') {
+ $CGI::Session::IP_MATCH = 1;
+ last ARG;
+ }
}
}
--------------------------------------
$CGI::Session::VERSION = '4.13';
This is perl, v5.8.8 built for i686-linux-thread-multi
Linux version 2.6.11.4-21.14-default (geeko@buildhost) (gcc version
3.3.5 20050117 (prerelease) (SUSE Linux)) #1 Thu Aug 24 09:51:41 UTC 2006
Thanks for all the good stuff.