--- a/lexers/LexPerl.cxx
+++ b/lexers/LexPerl.cxx
@@ -580,7 +580,7 @@
 		int Count;
 		int Up, Down;
 		QuoteCls() {
-			this->New(1);
+			New(1);
 		}
 		void New(int r = 1) {
 			Rep   = r;