From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 3B4901F8C8 for ; Sun, 3 Oct 2021 09:16:41 +0000 (UTC) From: Eric Wong To: mwrap-perl@80x24.org Subject: [PATCH] psgi: fix regexp to include underscores Date: Sun, 3 Oct 2021 09:16:41 +0000 Message-Id: <20211003091641.28426-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: 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));