[gimp-perl] Handle "exit" to quit Perl-Console.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Handle "exit" to quit Perl-Console.
- Date: Mon, 19 May 2014 04:08:35 +0000 (UTC)
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]