This queue is for tickets about the perlconsole CPAN distribution.

Report information
The Basics
Id:
102693
Status:
new
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
julien [...] rolland.io
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



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 text
Perl> my $superawesome:QuIt
$ $ cat .perlconsolerc sub test:quITsub { for (1..4) { print "test\n"; } } $ perlconsole Perl Console 0.4 $ -- Julien Rolland


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.