[gimp] pdb: replace \1 \2 \3 by $1 $2 $2 as suggested by perl warning

[Michael Natterer <mitch src gnome org>]

commit 4fbaff92a1592bc547c3248c244baee263fe8fbb
Author: Michael Natterer <mitch gimp org>
Date:   Thu May 29 16:26:16 2014 +0200

    pdb: replace \1 \2 \3 by $1 $2 $2 as suggested by perl warning

 tools/pdbgen/pdbgen.pl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/tools/pdbgen/pdbgen.pl b/tools/pdbgen/pdbgen.pl
index bf6dd85..e1df743 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 {