1 files changed, 1 insertions, 1 deletions
diff --git a/languages/perl/perlparser.cpp b/languages/perl/perlparser.cpp
index ad0b5de2..60cca8f5 100644
--- a/languages/perl/perlparser.cpp
+++ b/languages/perl/perlparser.cpp
@@ -464,7 +464,7 @@ void perlparser::getPerlINC() {
             return;
         }
         array.setRawData(buffer, n);
-        result=TQString::TQString(array);
+        result=TQString(array);
         array.resetRawData(buffer, n);
  }
  pclose(fd);