izackp/mosh
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mosh Perl wrapper: Downgrade Perl regex to avoid named capture

Browse Source 
(Failed on Perl 5.8 with OS X 10.5)
This commit is contained in:
Keith Winstein
2013-03-10 22:53:05 -04:00
parent 4668dc595f
commit c6a8427d61
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scripts/mosh
+8 -7
View File
@@ -127,16 +127,17 @@ if ( defined $predict ) {
} }
if ( defined $port_request ) { if ( defined $port_request ) {
if ( $port_request =~ m{^(?<low>\d+)(:(?<high>\d+))?$} ) { if ( $port_request =~ m{^(\d+)(:(\d+))?$} ) {
my ( $low, $clause, $high ) = ( $1, $2, $3 );
# good port or port-range # good port or port-range
if ( $+{low} <= 0 or $+{low} >= 65535 ) { if ( $low <= 0 or $low > 65535 ) {
die "$0: Server-side (low) port ($+{low}) must be within valid range [0..65535].\n"; die "$0: Server-side (low) port ($low) must be within valid range [1..65535].\n";
} }
if ( defined $+{high} ) { if ( defined $high ) {
if ( $+{high} <= 0 or $+{high} >= 65535 ) { if ( $high <= 0 or $high > 65535 ) {
die "$0: Server-side high port ($+{high}) must be within valid range [0..65535].\n"; die "$0: Server-side high port ($high) must be within valid range [1..65535].\n";
} }
if ( $+{low} > $+{high} ) { if ( $low > $high ) {
die "$0: Server-side port range ($port_request): low port greater than high port.\n"; die "$0: Server-side port range ($port_request): low port greater than high port.\n";
} }
} }