[gimp] pdb: replace \1 \2 \3 by $1 $2 $2 as suggested by perl warning
- From: Michael Natterer <mitch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp] pdb: replace \1 \2 \3 by $1 $2 $2 as suggested by perl warning
- Date: Thu, 29 May 2014 14:30:12 +0000 (UTC)
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 {
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]