From 2066d2619a125b93e92bb73bb07ac9e4c68fe64f Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 4 Sep 2008 19:40:01 +0000
Subject: [PATCH] -Fix SQLite functionality to work with new MySQL friendly
 Table schema syntax

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2073 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index e6830dfa9..caf28749b 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -354,11 +354,14 @@ sub updateschema
         my @entries = split /,/, $cstmt;
         foreach (@entries)
         {
+            s/VARCHAR\(\d+\)/TEXT/;
             unless (/\(/)
             {    #Filter out the PRIMARY KEY statement, but not if on a col
                 my $colname = $_;
                 $colname =~ s/^\s*(\S+)\s+.*\s*$/$1/
                   ; #I don't understand why it won't work otherwise for "    colname TEXT     "
+                $colname =~ s/^"//;
+                $colname =~ s/"$//;
                 push @columns, $colname;
             }
         }