summaryrefslogtreecommitdiffstats
path: root/languages/perl/perlparser.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'languages/perl/perlparser.cpp')
-rw-r--r--languages/perl/perlparser.cpp26
1 files changed, 13 insertions, 13 deletions
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();