Commit 61829ad4 authored by Salvatore Bonaccorso's avatar Salvatore Bonaccorso

patchedit: Avoid smartmatching operator ~~

Avoid smartmatching operator ~~ as it becomes an experimental feature
with Perl 5.18.
parent f94825ba
......@@ -139,7 +139,7 @@ sub main {
my $cmd = shift @ARGV;
# make the edit default
if ( not $cmd ~~ [ 'edit', 'check' ] ) {
if ( $cmd !~ m{^(edit|check)$} ) {
unshift @ARGV, $cmd;
$cmd = 'edit';
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment