summaryrefslogtreecommitdiffstats
path: root/languages/perl
diff options
context:
space:
mode:
Diffstat (limited to 'languages/perl')
-rw-r--r--languages/perl/perlparser.cpp4
-rw-r--r--languages/perl/perlsupportpart.cpp2
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();
}