diff options
Diffstat (limited to 'languages/perl/perlparser.cpp')
| -rw-r--r-- | languages/perl/perlparser.cpp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/languages/perl/perlparser.cpp b/languages/perl/perlparser.cpp index 520daab3..60cca8f5 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 tqparent = basere.cap(1); - //create child & tqparent classes - kdDebug(9016) << "basere match [" << tqparent << "]" << endl; + TQString parent = basere.cap(1); + //create child & parent classes + kdDebug(9016) << "basere match [" << parent << "]" << endl; addClass(fileName,lineNo); - addParentClass(tqparent); + addParentClass(parent); 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 tqparent = isare.cap(1); - //create child & tqparent classes - kdDebug(9016) << "isare match [" << tqparent << "]" << endl; + TQString parent = isare.cap(1); + //create child & parent classes + kdDebug(9016) << "isare match [" << parent << "]" << endl; addClass(fileName,lineNo); - addParentClass(tqparent); + addParentClass(parent); continue; } //isa @@ -424,11 +424,11 @@ void perlparser::addPackageSub(const TQString& fileName ,int lineNr ,const TQStr m_lastsub=name; } -void perlparser::addParentClass(const TQString& tqparent) +void perlparser::addParentClass(const TQString& parent) { - kdDebug(9016) << "addParentClass[ " << tqparent << "]" << endl; + kdDebug(9016) << "addParentClass[ " << parent << "]" << endl; if (m_lastclass) { - m_lastclass->addBaseClass(tqparent); + m_lastclass->addBaseClass(parent); } else { kdDebug(9016) << "addParentClass[ no m_lastclass]" << endl; } |