|
From: Chris W. <la...@us...> - 2001-11-06 08:43:47
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv14341
Modified Files:
Request.pm
Log Message:
cosmetic
Index: Request.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Request.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Request.pm 2001/10/17 04:47:07 1.12
--- Request.pm 2001/11/06 04:25:44 1.13
***************
*** 293,301 ****
$stash_class->clean_stash;
! # Clear out all the content
! foreach my $key ( keys %{ $self } ) {
! delete $self->{ $key };
! }
}
--- 293,299 ----
$stash_class->clean_stash;
! # Clear out all the content in the object
! delete $self->{ $_ } for ( keys %{ $self } );
}
|