From da1522385e5367bae56b90fac55c4355e475905b Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Fri, 25 Jan 2013 00:38:54 -0600
Subject: Rename KCModule, KConfig, KIO, KServer, and KSocket to avoid
 conflicts with KDE4

---
 languages/perl/perldoc.cpp | 6 +++---
 languages/perl/perldoc.h   | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'languages/perl')

diff --git a/languages/perl/perldoc.cpp b/languages/perl/perldoc.cpp
index bbb2fa2d..dee9b6d0 100644
--- a/languages/perl/perldoc.cpp
+++ b/languages/perl/perldoc.cpp
@@ -14,7 +14,7 @@
 #include <tdeversion.h>
 #include <kglobal.h>
 
-using namespace KIO;
+using namespace TDEIO;
 
 
 PerldocProtocol::PerldocProtocol(const TQCString &pool, const TQCString &app)
@@ -95,7 +95,7 @@ TQCString PerldocProtocol::errorMessage()
 void PerldocProtocol::stat(const KURL &/*url*/)
 {
     UDSAtom uds_atom;
-    uds_atom.m_uds = KIO::UDS_FILE_TYPE;
+    uds_atom.m_uds = TDEIO::UDS_FILE_TYPE;
     uds_atom.m_long = S_IFREG | S_IRWXU | S_IRWXG | S_IRWXO;
 
     UDSEntry uds_entry;
@@ -108,7 +108,7 @@ void PerldocProtocol::stat(const KURL &/*url*/)
 
 void PerldocProtocol::listDir(const KURL &url)
 {
-    error( KIO::ERR_CANNOT_ENTER_DIRECTORY, url.path() );
+    error( TDEIO::ERR_CANNOT_ENTER_DIRECTORY, url.path() );
 }
 
 
diff --git a/languages/perl/perldoc.h b/languages/perl/perldoc.h
index 4540c045..0ea1bf3a 100644
--- a/languages/perl/perldoc.h
+++ b/languages/perl/perldoc.h
@@ -5,7 +5,7 @@
 #include <kio/slavebase.h>
 
 
-class PerldocProtocol : public KIO::SlaveBase
+class PerldocProtocol : public TDEIO::SlaveBase
 {
 public:
     PerldocProtocol(const TQCString &pool, const TQCString &app);
-- 
cgit v1.2.1