6 files changed, 18 insertions, 18 deletions
diff --git a/languages/perl/perlconfigwidget.cpp b/languages/perl/perlconfigwidget.cpp
index 58730d05..e41def0c 100644
--- a/languages/perl/perlconfigwidget.cpp
+++ b/languages/perl/perlconfigwidget.cpp
@@ -17,8 +17,8 @@
 
 
 PerlConfigWidget::PerlConfigWidget(TQDomDocument &projectDom,
-                                       TQWidget *tqparent, const char *name)
-    : PerlConfigWidgetBase(tqparent, name), dom(projectDom)
+                                       TQWidget *parent, const char *name)
+    : PerlConfigWidgetBase(parent, name), dom(projectDom)
 {
     interpreter_edit->setText(DomUtil::readEntry(dom, "/kdevperlsupport/run/interpreter"));
     terminal_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevperlsupport/run/terminal"));
diff --git a/languages/perl/perlconfigwidget.h b/languages/perl/perlconfigwidget.h
index 11b4503d..0f863ad0 100644
--- a/languages/perl/perlconfigwidget.h
+++ b/languages/perl/perlconfigwidget.h
@@ -22,7 +22,7 @@ class PerlConfigWidget : public PerlConfigWidgetBase
   TQ_OBJECT
 
 public:
-    PerlConfigWidget( TQDomDocument &projectDom, TQWidget *tqparent=0, const char *name=0 );
+    PerlConfigWidget( TQDomDocument &projectDom, TQWidget *parent=0, const char *name=0 );
     ~PerlConfigWidget();
 
 public slots:
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;
  }
diff --git a/languages/perl/perlparser.h b/languages/perl/perlparser.h
index 6a68165e..b536596b 100644
--- a/languages/perl/perlparser.h
+++ b/languages/perl/perlparser.h
@@ -49,7 +49,7 @@ class perlparser {
   void addScriptSub(const TQString& fileName ,int lineNr , const TQString& name, bool privatesub);
   void addClassMethod(const TQString& fileName ,int lineNr , const TQString& name , bool privatesub);
   void addPackageSub(const TQString& fileName ,int lineNr , const TQString& name, bool privatesub);
-  void addParentClass(const TQString& tqparent);
+  void addParentClass(const TQString& parent);
   void addScript(const TQString& fileName ,int lineNr , const TQString& name);
   void addUseLib(const TQString& lib);
   void getPerlINC();
diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp
index a8c66b66..be725f28 100644
--- a/languages/perl/perlsupportpart.cpp
+++ b/languages/perl/perlsupportpart.cpp
@@ -48,8 +48,8 @@ typedef KDevGenericFactory<PerlSupportPart> PerlSupportFactory;
 static const KDevPluginInfo data("kdevperlsupport");
 K_EXPORT_COMPONENT_FACTORY( libkdevperlsupport, PerlSupportFactory( data ) )
 
-PerlSupportPart::PerlSupportPart(TQObject *tqparent, const char *name, const TQStringList &)
-    : KDevLanguageSupport(&data, tqparent, name ? name : "PerlSupportPart")
+PerlSupportPart::PerlSupportPart(TQObject *parent, const char *name, const TQStringList &)
+    : KDevLanguageSupport(&data, parent, name ? name : "PerlSupportPart")
 {
     setInstance(PerlSupportFactory::instance());
 
diff --git a/languages/perl/perlsupportpart.h b/languages/perl/perlsupportpart.h
index dd3a7bfa..7de6c95f 100644
--- a/languages/perl/perlsupportpart.h
+++ b/languages/perl/perlsupportpart.h
@@ -22,7 +22,7 @@ class PerlSupportPart : public KDevLanguageSupport
   TQ_OBJECT
 
 public:
-    PerlSupportPart( TQObject *tqparent, const char *name, const TQStringList & );
+    PerlSupportPart( TQObject *parent, const char *name, const TQStringList & );
     ~PerlSupportPart();
 
 protected: