[gimp-perl] Handle "exit" to quit Perl-Console.



commit 2ef21d8aedb566ee0fc54da7c07f9b3ec7165b5a
Author: Ed J <edj src gnome org>
Date:   Mon May 19 05:08:23 2014 +0100

    Handle "exit" to quit Perl-Console.

 examples/Perl-Console |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/examples/Perl-Console b/examples/Perl-Console
index f68e509..54f3daf 100644
--- a/examples/Perl-Console
+++ b/examples/Perl-Console
@@ -126,6 +126,7 @@ sub ret_vbox {
 
 sub process_input {
   my ($input)= @_;
+  $input = 'Gtk2->main_quit' if $input eq 'exit';
   my @out = eval("no strict;no warnings;\n#line 1 \"code\"\n".$input);
   my $output = $@ || join ' ', @out;
   chomp $output;


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]