From 48d4a26399959121f33d2bc3bfe51c7827b654fc Mon Sep 17 00:00:00 2001
From: tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Tue, 14 Jun 2011 16:45:05 +0000
Subject: TQt4 port kdevelop This enables compilation under both Qt3 and Qt4

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdevelop@1236710 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 languages/perl/perlparser.cpp | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'languages/perl/perlparser.cpp')

diff --git a/languages/perl/perlparser.cpp b/languages/perl/perlparser.cpp
index 60cca8f5..4ab48333 100644
--- a/languages/perl/perlparser.cpp
+++ b/languages/perl/perlparser.cpp
@@ -161,11 +161,11 @@ void perlparser::parseLines(TQStringList* lines,const TQString &fileName)
 
     //base matching
     if ((basere.search(line)>=0) && (!m_inscript)) {
-         TQString parent = basere.cap(1);
-         //create child & parent classes
-         kdDebug(9016) << "basere match [" << parent << "]" << endl;
+         TQString tqparent = basere.cap(1);
+         //create child & tqparent classes
+         kdDebug(9016) << "basere match [" << tqparent << "]" << endl;
          addClass(fileName,lineNo);
-         addParentClass(parent);
+         addParentClass(tqparent);
          continue;
     } else {
       if (libre.search(line)>=0) {
@@ -186,11 +186,11 @@ void perlparser::parseLines(TQStringList* lines,const TQString &fileName)
     } //base
 
     if ((isare.search(line)>=0) && (!m_inscript)) {
-         TQString parent = isare.cap(1);
-         //create child & parent classes
-         kdDebug(9016) << "isare match [" << parent << "]" << endl;
+         TQString tqparent = isare.cap(1);
+         //create child & tqparent classes
+         kdDebug(9016) << "isare match [" << tqparent << "]" << endl;
          addClass(fileName,lineNo);
-         addParentClass(parent);
+         addParentClass(tqparent);
          continue;
     } //isa
 
@@ -424,11 +424,11 @@ void perlparser::addPackageSub(const TQString& fileName ,int lineNr ,const TQStr
  m_lastsub=name;
 }
 
-void perlparser::addParentClass(const TQString& parent)
+void perlparser::addParentClass(const TQString& tqparent)
 {
- kdDebug(9016) << "addParentClass[ " << parent << "]" << endl;
+ kdDebug(9016) << "addParentClass[ " << tqparent << "]" << endl;
  if (m_lastclass) {
-        m_lastclass->addBaseClass(parent);
+        m_lastclass->addBaseClass(tqparent);
  } else {
     kdDebug(9016) << "addParentClass[ no m_lastclass]" << endl;
  }
@@ -437,7 +437,7 @@ void perlparser::addParentClass(const TQString& parent)
 void perlparser::addUseLib(const TQString& lib)
 {
  if (!m_model->hasFile(lib)) {
-   if (m_usefiles.findIndex(lib) == -1) {
+   if (m_usefiles.tqfindIndex(lib) == -1) {
       //only add if not already parsed or in the list
       kdDebug(9016) << "add lib for later parsing [" << lib << "]" << endl;
       m_usefiles.append(lib);
@@ -478,7 +478,7 @@ TQString perlparser::findLib( const TQString& lib)
   TQString result;
 
   TQString file=lib;
-  file.replace( TQRegExp("::"), TQString("/"));
+  file.tqreplace( TQRegExp("::"), TQString("/"));
 
   //find the correct path by using the INC list
   TQStringList::Iterator inc = m_INClist.begin();
-- 
cgit v1.2.1