Fix swaped short option

[acme] / letsconf

diff --git a/letsconf b/letsconf
index e4b70cfa506040c5cf15656efec8f1ef23ead6ed..72e7a11d873e60cfab5c938384d694bbea8e3720 100755 (executable)
--- 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
 # 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
                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
                        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
                if (defined($2)) {
                        push(@debian, split(',', $2));
                # Extract next parameter