diff --git a/Core/tdelibs/perlfix.patch b/Core/tdelibs/perlfix.patch
new file mode 100644
index 0000000..e1a5f0d
--- /dev/null
+++ b/Core/tdelibs/perlfix.patch
@@ -0,0 +1,12 @@
+diff -Naur tdelibs/dcop/dcopidlng/kdocAstUtil.pm tdelibs-new/dcop/dcopidlng/kdocAstUtil.pm
+--- tdelibs/dcop/dcopidlng/kdocAstUtil.pm	2011-11-29 02:39:37.000000000 -0500
++++ tdelibs-new/dcop/dcopidlng/kdocAstUtil.pm	2015-12-28 00:40:44.864306552 -0500
+@@ -439,7 +439,7 @@
+ 	}
+ 
+ 	print "\t" x $depth, "Documentation nodes:\n" if defined 
+-		@{ $node->{Doc}->{ "Text" }};
++		$node->{Doc}->{ "Text" };
+ 
+ 	foreach $kid ( @{ $node->{Doc}->{ "Text" }} ) {
+ 		dumpAst( $kid );
diff --git a/Core/tdelibs/tdelibs.SlackBuild b/Core/tdelibs/tdelibs.SlackBuild
index be3868a..30c1f9b 100755
--- a/Core/tdelibs/tdelibs.SlackBuild
+++ b/Core/tdelibs/tdelibs.SlackBuild
@@ -141,6 +141,10 @@ cd ${PRGNAM}
 chown -R root:root .
 chmod -R u+w,go+r-w,a+rX-st .
 
+# Patch a file with incorrect syntax
+# https://bugs.trinitydesktop.org/show_bug.cgi?id=2543
+patch -p1 < $SRCDIR/perlfix.patch
+
 # On Slackware current this wasn't building with CUPS support:
 mkdir -p build-${PRGNAM}
 cd build-${PRGNAM}