diff options
Diffstat (limited to 'languages/perl')
-rw-r--r-- | languages/perl/perlparser.cpp | 4 | ||||
-rw-r--r-- | languages/perl/perlsupportpart.cpp | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/languages/perl/perlparser.cpp b/languages/perl/perlparser.cpp index 4ab48333..520daab3 100644 --- a/languages/perl/perlparser.cpp +++ b/languages/perl/perlparser.cpp @@ -437,7 +437,7 @@ void perlparser::addParentClass(const TQString& tqparent) void perlparser::addUseLib(const TQString& lib) { if (!m_model->hasFile(lib)) { - if (m_usefiles.tqfindIndex(lib) == -1) { + if (m_usefiles.findIndex(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.tqreplace( TQRegExp("::"), TQString("/")); + file.replace( TQRegExp("::"), TQString("/")); //find the correct path by using the INC list TQStringList::Iterator inc = m_INClist.begin(); diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp index b131af11..a8c66b66 100644 --- a/languages/perl/perlsupportpart.cpp +++ b/languages/perl/perlsupportpart.cpp @@ -166,7 +166,7 @@ void PerlSupportPart::savedFile(const KURL &fileName) #if 0 // not needed anymore kdDebug(9016) << "savedFile()" << endl; - if (project()->allFiles().tqcontains(fileName.mid ( project()->projectDirectory().length() + 1 ))) { + if (project()->allFiles().contains(fileName.mid ( project()->projectDirectory().length() + 1 ))) { maybeParse(fileName); emit updatedSourceInfo(); } |