1 files changed, 4 insertions, 4 deletions
diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp
index 2b230cd7..910e9f7e 100644
--- a/languages/perl/perlsupportpart.cpp
+++ b/languages/perl/perlsupportpart.cpp
@@ -262,9 +262,9 @@ void PerlSupportPart::initialParse()
     if (project()) {
         //copy from cpp support : give user some feedback
         mainWindow()->statusBar()->message( i18n("Updating...") );
-        kapp->processEvents( );
+        tdeApp->processEvents( );
 
-        kapp->setOverrideCursor(waitCursor);
+        tdeApp->setOverrideCursor(waitCursor);
         TQStringList files = project()->allFiles();
         m_parser->initialParse();
 
@@ -281,7 +281,7 @@ void PerlSupportPart::initialParse()
             //update progress bar
             bar->setProgress( n++ );
             if( (n%5) == 0 )
-              kapp->processEvents();
+              tdeApp->processEvents();
         }
         parseUseFiles();
         emit updatedSourceInfo();
@@ -289,7 +289,7 @@ void PerlSupportPart::initialParse()
         //remove progressbar
         mainWindow( )->statusBar( )->removeWidget( bar );
         delete bar;
-        kapp->restoreOverrideCursor();
+        tdeApp->restoreOverrideCursor();
         mainWindow()->statusBar()->message( i18n("Done") );
 
     } else {