[interchange-cvs] interchange - heins modified lib/Vend/Session.pm

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-04-18 18:57:32 GMT
Modified:  lib/Vend Session.pm
Log:
* Slight speed improvement (don't enter block for
  scalar(@Vend::TmpScratch) times) on temp space.

Revision  Changes    Path
2.23      +5 -5      interchange/lib/Vend/Session.pm


rev 2.23, prev_rev 2.22
Index: Session.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Session.pm,v
retrieving revision 2.22
retrieving revision 2.23
diff -u -r2.22 -r2.23
--- Session.pm	7 Apr 2005 22:51:33 -0000	2.22
+++ Session.pm	18 Apr 2005 18:57:32 -0000	2.23
@@ -1,6 +1,6 @@
 # Vend::Session - Interchange session routines
 #
-# $Id: Session.pm,v 2.22 2005/04/07 22:51:33 jon Exp $
+# $Id: Session.pm,v 2.23 2005/04/18 18:57:32 mheins Exp $
 # 
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -27,7 +27,7 @@
 require Exporter;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.22 $, 10);
+$VERSION = substr(q$Revision: 2.23 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -309,9 +309,9 @@
     $Vend::Session->{'time'} = $time;
 	delete $Vend::Session->{values}->{mv_credit_card_number};
     my $save = delete $Vend::Session->{'user'};
-	for(@Vend::TmpScratch) {
-		delete $::Scratch->{$_};
-	}
+
+	delete @{$::Scratch}{@Vend::TmpScratch};
+
 	$Vend::Session->{username} = $Vend::username;
 	$Vend::Session->{admin} = $Vend::admin;
 	$Vend::Session->{groups} = $Vend::groups;