| Subject: | Catch exit/quit command |
| Date: | Tue, 10 Mar 2015 18:58:40 +0100 |
| To: | bug-perlconsole [...] rt.cpan.org |
| From: | Julien Rolland <julien [...] rolland.io> |
Hello,
This regexp catch *:quit* *exit* user input, and it's case insensitive...
./lib/PerlConsole/Console.pm:271: $self->clean_exit(0) if $code =~ /(:quit|exit)/i;
Examples:
Show quoted text
Perl> my $superawesomeExiT
$
$ cat .perlconsolerc
sub testEXitsub { for (1..4) { print "test\n"; } }
$ perlconsole
Perl Console 0.4
$
Show quoted textPerl> my $superawesome:QuIt
$
$ cat .perlconsolerc
sub test:quITsub { for (1..4) { print "test\n"; } }
$ perlconsole
Perl Console 0.4
$
--
Julien Rolland