[gimp-perl] Protect Gtk2 from NUL by sub-ing. Bug 731935

[Ed J <edj src gnome org>]

commit eac28695a60b833018153247c8ac805ccd09c73a
Author: Ed J <edj src gnome org>
Date:   Fri Jun 20 03:03:49 2014 +0100

    Protect Gtk2 from NUL by sub-ing. Bug 731935

 examples/Perl-Console |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/examples/Perl-Console b/examples/Perl-Console
index e5a7a1b..2ad1512 100755
--- a/examples/Perl-Console
+++ b/examples/Perl-Console
@@ -123,7 +123,9 @@ sub process_input {
     $output = "Error stringifying output: $@" if $@;
   }
   chomp $output;
-  "> $input\n$output";
+  my $to_add = "> $input\n$output";
+  $to_add =~ s#\0#\\0#g;
+  $to_add;
 }
 __END__