richter 00/11/10 00:23:16
Modified: . Embperl.pm test.pl
Embperl Session.pm
Log:
Remove Perl 5.004 Warnings
Revision Changes Path
1.129 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.128
retrieving revision 1.129
diff -u -r1.128 -r1.129
--- Embperl.pm 2000/11/10 08:07:06 1.128
+++ Embperl.pm 2000/11/10 08:23:16 1.129
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.128 2000/11/10 08:07:06 richter Exp $
+# $Id: Embperl.pm,v 1.129 2000/11/10 08:23:16 richter Exp $
#
###################################################################################
@@ -1694,7 +1694,7 @@
else
{
$udat-> {data} = {} ; # for make test only
- $udat->{initial_session_id} = "!DELETE" ;
+ $udat->{initial_session_id} = "!DELETE" ;
}
$udat->{status} = 0;
}
1.83 +2 -2 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- test.pl 2000/11/10 08:07:06 1.82
+++ test.pl 2000/11/10 08:23:16 1.83
@@ -607,7 +607,7 @@
print "--gdb start apache under gdb\n" ;
print "--ab <numreq> run test thru ApacheBench\n" ;
print "--start start apache only\n" ;
- print "--kill kill apache only\n" ;
+ print "--kill kill apache only\n" ;
print "--showcookie shows sent and received cookies\n" ;
print "\n\n" ;
print "path\t$EPPATH\n" ;
@@ -839,7 +839,7 @@
print "\nSent: $sendcookie, Got: " , ($c||''), "\n" if ($opt_showcookie) ;
print "\nExpected new cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if
(($cookieaction =~ /expectnew/) && ($sendcookie eq $c || !$c)) ;
print "\nExpected same cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if
(($cookieaction =~ /expectsame/) && ($sendcookie ne $c || !$c)) ;
- print "\nExpected no cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if
(($cookieaction =~ /expectno/) && $c) ;
+ print "\nExpected no cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if
(($cookieaction =~ /expectno/) && $c) ;
print "\nExpected expire cookie: Sent: $sendcookie, Got: " , ($c||''), "\n" if
(($cookieaction =~ /expectexpire/) && !($c =~ /^EMBPERL_UID=; expires=/)) ;
#print $response -> headers -> as_string () ;
1.10 +6 -6 embperl/Embperl/Session.pm
Index: Session.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Session.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Session.pm 2000/11/10 08:07:07 1.9
+++ Session.pm 2000/11/10 08:23:16 1.10
@@ -419,7 +419,7 @@
sub getids {
my $self = shift;
- return ($self->{initial_session_id}, $self->{data}->{_session_id} ||
$self->{'ID'}, $self->{status} & MODIFIED) ;
+ return ($self->{initial_session_id}, $self->{data}->{_session_id} ||
$self->{'ID'}, $self->{status} & MODIFIED) ;
}
sub delete {
@@ -427,8 +427,8 @@
return if ($self->{status} & NEW);
- $self->{initial_session_id} = "!DELETE" ;
-
+ $self->{initial_session_id} = "!DELETE" ;
+
$self -> init if (!$self -> {'status'}) ;
$self->{status} |= DELETED;
@@ -486,13 +486,13 @@
$self->{object_store} = new $store $self if ($store) ;
$self->{lock_manager} = new $lock $self if ($lock);
$self->{generate} = \&{$gen . '::generate'} if ($gen);
- $self->{validate} = \&{$gen . '::validate'} if ($gen && defined (&{$gen .
'::validate'}));
+ $self->{'validate'} = \&{$gen . '::validate'} if ($gen && defined (&{$gen .
'::validate'}));
$self->{serialize} = \&{$ser . '::serialize'} if ($ser);
$self->{unserialize} = \&{$ser . '::unserialize'} if ($ser) ;
- if (!defined ($self->{validate}))
+ if (!defined ($self->{'validate'}))
{
- $self->{validate} = \&validate ;
+ $self->{'validate'} = \&validate ;
}
return $self;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
