From 564ad98bdc2a55d4cd12f734b37af7c66844204a Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 23 Sep 2007 20:16:08 +0000
Subject: CGI.pm -> CGI::Simple switch

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1654 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 27abf20f..97e30403 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -116,8 +116,8 @@ non-numbers.
  #====================================================================
 =cut
 
-use CGI;
-use Math::BigFloat lib => 'GMP';
+use CGI::Simple;
+use Math::BigFloat;
 use LedgerSMB::Sysconfig;
 use Data::Dumper;
 use LedgerSMB::Session;
@@ -137,7 +137,7 @@ sub new {
     $self->{version} = $VERSION;
     $self->{dbversion} = "1.2.0";
     bless $self, $type;
-    my $query = ($argstr) ? new CGI($argstr) : new CGI;
+    my $query = ($argstr) ? new CGI::Simple($argstr) : new CGI::Simple;
     my $params = $query->Vars;
     $self->{VERSION} = $VERSION;
 
@@ -158,7 +158,7 @@ sub new {
 
     }
 
-    if ( ( $self->{script} =~ m#(..|\\|/)# ) ) {
+    if ( ( $self->{script} =~ m#(\.\.|\\|/)# ) ) {
         $self->error("Access Denied");
     }
     if (!$self->{login}){
-- 
cgit v1.2.3