* [PATCH] psgi: fix regexp to include underscores
@ 2021-10-03 9:16 Eric Wong
0 siblings, 0 replies; only message in thread
From: Eric Wong @ 2021-10-03 9:16 UTC (permalink / raw)
To: mwrap-perl
We can safely use \w with the Perl v5.12+ m//a modifier.
---
lib/Devel/Mwrap/PSGI.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Devel/Mwrap/PSGI.pm b/lib/Devel/Mwrap/PSGI.pm
index c94d136..90b4354 100644
--- a/lib/Devel/Mwrap/PSGI.pm
+++ b/lib/Devel/Mwrap/PSGI.pm
@@ -155,7 +155,7 @@ sub call { # PSGI entry point
my $ret;
if ($path_info =~ m!\A/each/([0-9]+)\z!) {
my $min = $1 + 0;
- my ($sort) = ($env->{QUERY_STRING} =~ /\bsort=([a-z]+)\b/);
+ my ($sort) = ($env->{QUERY_STRING} =~ /\bsort=(\w+)\b/a);
$ret = each_gt($env, $min, $sort);
} elsif ($path_info =~ m!\A/at/(.*)\z!) {
my $src_loc = Devel::Mwrap::get(uri_unescape($1));
^ permalink raw reply related [flat|nested] only message in thread
only message in thread, other threads:[~2021-10-03 9:16 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-03 9:16 [PATCH] psgi: fix regexp to include underscores Eric Wong
Code repositories for project(s) associated with this public inbox
https://80x24.org/mwrap-perl.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).