[gimp-perl] Use new s///r.

[Ed J <edj src gnome org>]

commit bd9a6bb8aaf3411865d985005cd0f15de6567edd
Author: Ed J <edj src gnome org>
Date:   Thu Jun 26 13:00:58 2014 +0100

    Use new s///r.

 Gimp/Fu.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/Gimp/Fu.pm b/Gimp/Fu.pm
index be501bc..f7b953a 100644
--- a/Gimp/Fu.pm
+++ b/Gimp/Fu.pm
@@ -448,7 +448,7 @@ sub main {
            -i | --interact            let the user edit the values first
 EOF
    print "           -p <procedure> (one of @{[
-      map { my $s = $_->[0]; $s =~ s/^(?:perl_fu|plug_in)_//; $s } @scripts
+      map { $_->[0] =~ s/^(?:perl_fu|plug_in)_//r; } @scripts
    ]})\n" if @scripts > 1;
    print "       script-arguments are\n" if @{($this // [])->[9] // []};
    for(@{($this // [])->[9] // []}) {