Avoid a server-side problem with -e is at the start of the short options.

(Bug #6020)

diff --git a/support/rrsync b/support/rrsync
index 6599975..0369bc6 100644 (file)
--- a/support/rrsync
+++ b/support/rrsync
@@ -143,7 +143,8 @@ while ($command =~ /((?:[^\s\\]+|\\.[^\s\\]*)+)/g) {
     if ($_ eq '.') {
       $in_options = 0;
     } else {
     if ($_ eq '.') {
       $in_options = 0;
     } else {

-      next if /^-$short_no_arg+(e\d*\.\w*)?$/o || /^-$short_with_num\d+$/o;
+      die "$0: invalid option: '-'\n" if $_ eq '-';
+      next if /^-$short_no_arg*(e\d*\.\w*)?$/o || /^-$short_with_num\d+$/o;

 
       my($opt,$arg) = /^--([^=]+)(?:=(.*))?$/;
       my $disabled;
 
       my($opt,$arg) = /^--([^=]+)(?:=(.*))?$/;
       my $disabled;