From: Raphaƫl Gertz Date: Wed, 1 Mar 2017 09:47:05 +0000 (+0100) Subject: Fix swaped short option X-Git-Tag: 0.6.0~2 X-Git-Url: https://git.rapsys.eu/acme/commitdiff_plain/a2a0d9bf4597fbd23c69d4e2288b2efd639ceda3?hp=b8394ca77f165a8862ab2055ba1b8ae472b2b901 Fix swaped short option --- diff --git a/letsconf b/letsconf index e4b70cf..72e7a11 100755 --- a/letsconf +++ b/letsconf @@ -48,7 +48,7 @@ my $prod = 0; # Strip and enable debug for (my $i = 0; $i <= $#ARGV; $i++) { # Match redhat types - if ($ARGV[$i] =~ /^(?:(\-d|\-\-redhat)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) { + if ($ARGV[$i] =~ /^(?:(\-r|\-\-redhat)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) { if (defined($2)) { push(@redhat, split(',', $2)); # Extract next parameter @@ -60,7 +60,7 @@ for (my $i = 0; $i <= $#ARGV; $i++) { push(@redhat, ('example.com')); } # Match debian types - } elsif ($ARGV[$i] =~ /^(?:(\-r|\-\-debian)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) { + } elsif ($ARGV[$i] =~ /^(?:(\-d|\-\-debian)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) { if (defined($2)) { push(@debian, split(',', $2)); # Extract next parameter