From 4fbaff92a1592bc547c3248c244baee263fe8fbb Mon Sep 17 00:00:00 2001
From: Michael Natterer <mitch@gimp.org>
Date: Thu, 29 May 2014 16:26:16 +0200
Subject: [PATCH] pdb: replace \1 \2 \3 by $1 $2 $2 as suggested by perl
 warning

---
 tools/pdbgen/pdbgen.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/pdbgen/pdbgen.pl b/tools/pdbgen/pdbgen.pl
index bf6dd85570..e1df743285 100755
--- a/tools/pdbgen/pdbgen.pl
+++ b/tools/pdbgen/pdbgen.pl
@@ -128,8 +128,8 @@ foreach $file (@groups) {
 # Squash whitespace into just single spaces between words.
 # Single new lines are considered as normal spaces, but n > 1 newlines are considered (n - 1) newlines.
 # The sligthly complicated suite of regexp is so that \n\s+\n is still considered a double newline.
-sub trimspace { for (${$_[0]}) { s/(\S)[\ \t\r\f]*\n[\ \t\r\f]*(\S)/\1 \2/g; s/[\ \t\r\f]+/ /gs;
-    s/\n(([\ \t\r\f]*\n)+)/\1/g; s/[\ \t\r\f]*\n[\ \t\r\f]/\n/g ; s/^\s+//; s/\s+$//; } }
+sub trimspace { for (${$_[0]}) { s/(\S)[\ \t\r\f]*\n[\ \t\r\f]*(\S)/$1 $2/g; s/[\ \t\r\f]+/ /gs;
+    s/\n(([\ \t\r\f]*\n)+)/$1/g; s/[\ \t\r\f]*\n[\ \t\r\f]/\n/g ; s/^\s+//; s/\s+$//; } }
 
 # Trim spaces and escape quotes C-style
 sub nicetext {