SF.net SVN: ledger-smb:[2847] trunk/LedgerSMB/Auth/DB.pm

[..hidden..]

Revision: 2847
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2847&view=rev
Author:   einhverfr
Date:     2010-01-25 23:23:20 +0000 (Mon, 25 Jan 2010)

Log Message:
-----------
Correcting auth module parse bug

Modified Paths:
--------------
    trunk/LedgerSMB/Auth/DB.pm

Modified: trunk/LedgerSMB/Auth/DB.pm
===================================================================
--- trunk/LedgerSMB/Auth/DB.pm	2010-01-25 17:31:40 UTC (rev 2846)
+++ trunk/LedgerSMB/Auth/DB.pm	2010-01-25 23:23:20 UTC (rev 2847)
@@ -38,6 +38,7 @@
 
     my $path = ($ENV{SCRIPT_NAME});
     $path =~ s|[^/]*$||;
+    my $secure;
 
    if ($cookie eq 'Login'){
         return session_create($form);
@@ -127,6 +128,7 @@
 sub session_create {
     my ($lsmb) = @_;
     my $path = ($ENV{SCRIPT_NAME});
+    my $secure;
     $path =~ s|[^/]*$||;
     use Time::HiRes qw(gettimeofday);
     my $dbh = $lsmb->{dbh};
@@ -259,6 +261,7 @@
 
     my ($form) = @_;
     my $path = ($ENV{SCRIPT_NAME});
+    my $secure;
     $path =~ s|[^/]*$||;
 
     my $login = $form->{login};


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.